XL 2016 Recopier la cellule sur les 2 cellules du dessous...

[alain.raphael]

Bonjour à Tous,

Je vous joins un exemple... le but étant de le faire sur un grand nombre de lignes...

Merci !

 

[Phil69970]

Bonjour @alain.raphael

Je te propose ce fichier

Merci de ton retour

 

[sylvanu]

Bonsoir Alain,
Peut être avec cette petite macro :

Sub Copie()
Application.ScreenUpdating = False
DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For L = 4 To DL Step 3
    Cells(L + 1, "A") = Cells(L, "A")
    Cells(L + 2, "A") = Cells(L, "A")
Next L
End Sub

 

[alain.raphael]

Merci à vous 2... J'essaie

 

[Phil69970]

Edit Bonjour Sylvain (Grillé pour une fois )

Et si tu veux la copie dans la colonne A