Sub FormatPerso()
Dim Lettre as String, nombre as String
With Activesheet
Lettre = UCase(Left(.Range("E5"), 1))
nombre = Mid(.Range("E5"), 2, 13)
.Range("E5") = Lettre & Mid(nombre, 1, 3) & "." & Mid(nombre, 4, 5) & "." & Mid(nombre, 9, 3) & "." & Mid(nombre, 12, 2)
End With
End Sub