Salut
essaye cela, tu peux remplacer selection par les cellules à opérer
Sub essai()
Dim Cellule_en_Cours
For Each Cellule_en_Cours In Selection
If Len(Cellule_en_Cours.FormulaR1C1) = 4 Then Cellule_en_Cours.FormulaR1C1 = Left(Cellule_en_Cours.FormulaR1C1, 2) & "-" & Right(Cellule_en_Cours.FormulaR1C1, 2)
Next Cellule_en_Cours
End Sub
A+