Sub Calcul()
Dim Nombre_1 As Integer, Nombre_2 As Integer, Nombre_3 As Integer, Signe As String
Dim Resultat As String
Nombre_1 = Mid$(Cells(1, 1).Value, 1, 2) ' Recuperation des 3 valeurs
Nombre_2 = Mid$(Cells(1, 1).Value, 4, 2)
Nombre_3 = Mid$(Cells(1, 1).Value, 7, 2)
If Mid$(Cells(1, 1).Value, 10, 1) = "N" Then ' Recup du signe
Signe = "+"
Else
Signe = "-"
End If
Resultat = Signe & Nombre_1 + Nombre_2 / 60 + Nombre_3 / 3600 ' Calcul
MsgBox "1er nombre : " & Nombre_1 & vbCrLf & _
"2eme nombre : " & Nombre_2 & vbCrLf & _
"3eme nombre : " & Nombre_3 & vbCrLf & _
" Resultat : " & Resultat, vbInformation + vbOKOnly, "Alors..." ' Afficahge
End Sub