Discussion :

[thval]

Bonjour
Voici un exemple de tableau (les données sont fictives). C'est un exemple sur 3 lignes et 6 colonnes:
azer tyui qsdf qsde qazd 100
qsde dfrh thvx rtbc qsdm 200
jlku pmou wngt azsx plkj 850

Voila, je voudrais une macro qui copie mes lignes juste en dessous comme ci-dessous:
azer tyui qsdf qsde qazd 100
azer tyui qsdf qsde qazd VIDE 100
qsde dfrh thvx rtbc qsdm 200
qsde dfrh thvx rtbc qsdm VIDE 200
jlku pmou wngt azsx plkj 850
jlku pmou wngt azsx plkj VIDE 850

La derniere cellule est décalée par rapport a celle du dessus. Le tableau peut comporter un nombre variable de lignes (environ 3000)
Merci a l'avance pour votre aide

[mercatog]

Bonjour
adapte la feuille et la colonne de départ (ici Feuil3 et colonne A)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Sheets("Feuil3") 'à adapter
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = LastLig To 2 Step -1
        .Rows(i).Copy
        .Rows(i).Insert
        Application.CutCopyMode = False
        .Cells(i + 1, .Columns.Count).End(xlToLeft).Insert xlShiftToRight
    Next i
End With
End Sub

[thval]

Bonjour
C'est exactement ce que je voulais.
Un grand merci
thierry