Private Sub TextBox1_AfterUpdate()
Dim x, xx$
'---pierrejean---
Application.EnableEvents = False
x = Split(TextBox1.Value)
On Error GoTo 1
xx = x(0) & "° " & x(1) & "' " & x(2) & "'' " & UCase(x(3))
TextBox1 = xx
'---job75---
TextBox2 = Convertir(TextBox1.Text)
With Range("A" & Rows.Count).End(xlUp)(2)
.Value = TextBox1
.Offset(, 1) = CDbl(TextBox2.Value)
End With
GoTo 2
1 MsgBox ("format obligatoire : xx xx xx x ")
2 Application.EnableEvents = True
End Sub