Bonjour,
ce code permet d'inserer une tiret dans les cellules de la colonne A
Sub Macro1()
For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
c.Value = Left(c.Value, 1) & "-" & Right(c.Value, Len(c.Value) - 1)
Next
End Sub
Cdlt
NB : A la deuxieme execution il y aura deux tirets en ainsi de suite