Rajouter ce bout de code dans votre événement Worksheet_Change
Dim I As Integer
Dim ChaineDebut As String, ChainePro As String
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Columns(5)) Is Nothing Then
ChaineDebut = Target
ChainePro = ""
For I = 1 To Len(ChaineDebut)
Select Case Mid(UCase(ChaineDebut), I, 1)
Case "A" To "Z"
ChainePro = ChainePro & Mid(ChaineDebut, I, 1)
Case 1 To 9
ChainePro = ChainePro & Mid(ChaineDebut, I, 1)
End Select
Select Case Len(ChainePro)
Case 2, 6
ChainePro = ChainePro & "-"
Case 9
Exit For
End Select
Next I
Target = UCase(ChainePro)
End If