Convertir une valeur décimale en degrés

Bonjour gilles,

"La politesse est comme le zéro, qui, sans avoir de valeur en soi, en ajoute à toutes choses"

Mettre dans un module :

Function Convertir_en_Degré(Decimal_Deg) As Variant
    With Application
        Degrés = Int(Decimal_Deg)
        minutes = (Decimal_Deg - Degrés) * 60
        seconds = Format(((minutes - Int(minutes)) * 60), "0")
        Convertir_en_Degré = " " & Degrés & "° " & Int(minutes) & "' " & seconds + Chr(34)
    End With
End Function

Écrire dans une cellule exemple A1= 33.184686
Puis en A2 = Convertir_en_Degré(A1)
Résultat = 33° 11' 5"

Cela convient-il ?
Cordialement