Sub incr()
i = 0
valeurpas = 3 'valeur d'incrémentation, pendant combien de lignes
'on garde la même valeur
valeurCourrante = 100 'Valeur que tu veux donner à la premiere ligne
For Each cel In Selection
'traitement général
'condition d'incrementation
If (i = 0 Or i = valeurpas) Then
i = 1
valeurCourrante = valeurCourrante + 1
Else:
i = i + 1
End If
ligne = cel.Row
colonne = cel.Column
Cells(ligne, colonne) = valeurCourrante
Next
End Sub