Sub test()
Dim T As Integer
Dim z As Integer
Dim i As Integer

For x = 1 To 45 ' repete la macro afin d'epurer tout les espaces
T = 1
For T = 1 To 23 ' 23 est le nombre de ligne

z = 45 ' nombre de colonne

i = 2 ' Permet de revenir a la seonde colonne après chaque ligne
For i = 2 To z ' a faire de la seconde colonne a la dernière

If Cells(T, i) = "" Then ' Si le contenu de la cellule est vide alors
Cells(T, i) = Cells(T, i + 1) ' remplacer le contenu par le contenu de la cellule d'a coté
End If ' fin si
If Cells(T, i) = Cells(T, i + 1) Then 'si le contenu de la cellule est egal au contenu de la cellule d'a coté alors
Cells(T, i + 1) = Cells(T, i + 2) 'remplacer le contenu de la cellule d'a coté par le contenu de la cellule + 2
End If ' Fin si
Next i ' ajouter 1 au N° de colonne et recommencer
Next T ' Prochain technicien
Next x ' refaire la macro

End Sub