for next

Bonjour Didier

Regarde le code suivant, il te remplis automatiquement les chiffres de 1 a 10 pour les 10 premiere colonne.

J'espere que c'est +- ce que tu voulais

Sub RemplirSerie()
Dim C As Byte
For C = 1 To 10
Cells(1, C) = C
Next C
End sub

@Christophe@

Bonsoir @Christophe@
Merci je vais essayer
Bonne soirée
Didier