Bonjour,
une solution via une fonction personnalisée, à copier dans un module et à utiliser de la manière suivante pour un numéro d'immatriculation en A1.
=fim(A1)
Function fim(r)
If Left(r, 1) Like "#" Then
k = 2
While Mid(r, k, 1) Like "#"
k = k + 1
Wend
s = Left(r, k - 1) & " "
k1 = k
While Mid(r, k1, 1) Like "[A-Z]"
k1 = k1 + 1
Wend
s = s & Mid(r, k, k1 - k) & " "
s = s & Right(r, Len(r) - k1 + 1)
fim = s
Else
fim = Left(r, 2) & "-" & Mid(r, 3, 3) & "-" & Right(r, 2)
End If
End Function