Coller une plage de deux cellules sur toute une ligne

Bonjour le forum,

voici mon problème: je cherche à coller les valeurs d'un groupe de deux cellules sur toute une ligne (en commençant après le groupe copié). Il faudrait que mes cellules A1 et A2 copiées ensemble se collent sur A3 et A4 puis sur A5 et A6, etc... De plus je me sers de la cellule active et donc je décale depuis la cellule active

J'ai essayé ce code:

Range(ActiveCell, ActiveCell.Offset(0, 1)).Select

Range(ActiveCell, ActiveCell.Offset(0, 1)).Copy

Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 180)).Select

ActiveSheet.Paste Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 180))

Le problème c'est qu'il ne me colle que sur le premier groupe de cellule (A1 va en A3 et A2 va en A4) mais ne va pas jusqu'à la 180è colonne.

Merci pour votre aide

Bonjour

Essai ça :

Range("A1:B1").Copy Range(Cells(1, 3), Cells(1, 180))

Bye !

Bonjour,

Essaie :

Sub test()
    With ActiveCell
        .Resize(, 2).Copy .Offset(, 2).Resize(, 178)
    End With
End Sub

Cordialement.

Ou bien :

Sub Test2()
    With ActiveCell
        .Resize(, 2).AutoFill .Resize(, 180), xlFillCopy
    End With
End Sub

Merci pour ta réponse, mais ça ne répond pas à mon problème!!

Ton code me fait décaler les lignes et je ne veux surtout pas décaler les lignes.

Je veux que A1 et A2 puissent être collées sur le groupe de deux cellules qui suit et ainsi de suite, sur la même ligne

Merci

Où vois-tu un décalage ?

Merci!!!!!!!!!

C'est exactement ce que je cherchais.

Merci énormément

Comme quoi, après de longues heures d'essai, mieux vaut s'adresser à un spécialiste!

Bonne fin de journée