VBA-création boucle

Bonjour,

Dans le fichier ci-joint, je souhaiterai recopier à la suite les cellules C2 à C33 et ce tant que la colonne A n'est pas vide.

Pouvez-vous m'aider ?

Merci

Bonjour,

Pas besoin de VBA, si j'ai bien compris, en cellule C34, écrivez ceci:

=C2

et validez, puis, positionnez le curseur de la souris dans l'angle inférieur droit de la cellule C34 (le pointeur doit changer de forme, généralement cela devient un "+" ) puis faites un double-clic pour que la formule se reproduise jusqu'à la dernière cellule de la colonne A.

Si vous tenez à ce que ce soit en VBA, voici:

Sub Recopie()
    Application.ScreenUpdating = False
    DerLig_A = Range("A" & Rows.Count).End(xlUp).Row
    DerLig_C = Range("C" & Rows.Count).End(xlUp).Row
    Range(Cells(DerLig_C + 1, "C"), Cells(DerLig_A, "C")).FormulaR1C1 = "=R[-" & DerLig_C - 1 & "]C"
    Range(Cells(DerLig_C + 1, "C"), Cells(DerLig_A, "C")).Value = Range(Cells(DerLig_C + 1, "C"), Cells(DerLig_A, "C")).Value
End Sub

Cdlt

Parfait merci c'est simple mais je n'y avais pas pensé....