Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim x As Integer 'décalre la variable x (incrément)
'boucle sur toutes les cellules éditées cel de la colonne A
For Each cel In Range(Cells(1, 1), Cells(Application.Rows.Count, 1).End(xlUp))
If cel.Value = 1 Then 'condition : si la valeur de la cellule est 1
x = x + 1 'incrémente x de 1
cel.Offset(0, 4).Value = x 'donne à la cellule 4 colonnes à droite de cel la valeur de x
End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
End Sub