Comment convertir les degrés Farenheit en Celsius et réciproquement ?

Function CelsiusFarenheit(temp As Double, measure As String) As Double
  If UCase(measure) = "C" Then
   CelsiusFarenheit = temp * 1.8 + 32
  Else
    CelsiusFarenheit = (temp - 32) / 1.8
  End If
 End Function

Pour l'utiliser, il suffit d'entrer dans une cellule la formule: =CelsiusFarenheit(20;"c") ce qui donne 68 farenheit ou =CelsiusFarenheit(68;"f") ce qui donne 20 celsius