Sub Macro1()
Dim cel As Range 'déclare la variable cel
'boucle sur toutes les cellules éditées de la colonne B (en partant de la ligne 2)
For Each cel In Range('B2:B' & Range('B65536').End(xlUp).Row)
'si la cellule contient x digits (caratères numérique)
'remplace la valeur par les (x-2) premiers digits + un espace + les deux dernier digits
cel.Value = Mid(cel.Value, 1, Len(cel.Value) - 2) & ' ' & Right(cel.Value, 2)
Next cel 'prochaine cellule de la liste
End Sub