Range_End_Method & offset copy paste

Bonjour ,

Je souhaite faire une macro qui sélectionne une partie de mon tableau puis copypaste plus loin sur la même ligne.

Ma formule fonctionne très bien jusqu'à la partie copié.

Worksheets("Extraction").Activate

    'Find the last non-blank cell in row 1
    lCol1 = Cells(2, Columns.Count).End(xlToLeft).Column
    b = lCol1 + 1
    Range("A2:B2").Copy
    Range(Cells(2, b), Cells(2, b)).Select.[Inline]Paste[/Inline]

  

J'ai peut être zapper un truc sur la partie paste, du moins toute la partie de code avant fonctionne ...

Merci d'avance !

J'ai trouvé

Worksheets("Extraction").Activate

    'Find the last non-blank cell in row 1
    lCol1 = Cells(2, Columns.Count).End(xlToLeft).Column
    b = lCol1 + 1
    Range("A2:B2").Copy _
    Destination:=Range(Cells(2, b), Cells(2, b))