XL 2019 Copier plage de cellule et coller avec offset

[netparty]

Bonjour à tous
Je cherche à copier une plage de cellule et de la coller 2 colonnes plus loin si je relance la macro j'aimerai copier de nouveau ma première plage la la suite du collage précédant.

Je ne sais pas si cela est possible.

Merci d'avance pour votre aide

 

[Jacky67]

Bonjour à tous
Je cherche à copier une plage de cellule et de la coller 2 colonnes plus loin si je relance la macro j'aimerai copier de nouveau ma première plage la la suite du collage précédant.

Je ne sais pas si cela est possible.

Merci d'avance pour votre aide

Bonsoir,
Quelque chose comme ceci peut-être

Sub copie_decaler()
    Dim plage As Range
    Set plage = Range("A4").CurrentRegion
    plage.Offset(1).Resize(plage.Rows.Count - 1).Copy Cells(Cells(Rows.Count, "d").End(xlUp).Row + 1, 4)
End Sub

 

[netparty]

Bonsoir,
Quelque chose comme ceci peut-être

Sub copie_decaler()
    Dim plage As Range
    Set plage = Range("A4").CurrentRegion
    plage.Offset(1).Resize(plage.Rows.Count - 1).Copy Cells(Cells(Rows.Count, "d").End(xlUp).Row + 1, 4)
End Sub

Bonjour @Jacky67

Merci pour ton fichier

Est-il possible que la copie se fasse a chaque fois vers la droite et pas vers le bas.

bonne journée

 

[Jacky67]

Bonjour @Jacky67

Merci pour ton fichier

Est-il possible que la copie se fasse a chaque fois vers la droite et pas vers le bas.

bonne journée

Re...
Oui..

Sub copie_decaler()
    Range("A4").CurrentRegion.Copy Cells(4, Cells(4, Columns.Count).End(1).Column + 2)
    Columns.EntireColumn.AutoFit
End Sub

 

[netparty]

Re...
Oui..

Sub copie_decaler()
    Range("A4").CurrentRegion.Copy Cells(4, Cells(4, Columns.Count).End(1).Column + 2)
    Columns.EntireColumn.AutoFit
End Sub

@Jacky67

Un tout grand merci pour ton aide