Problème de coller les cellules

Bonsoir,

J'ai un problème excel et je suis débutante je sais pas quoi faire mon problème et que je veux copier les selection A7:B dernière ligne non vide ainsi que la plage N7: R dernière ligne non vide et les coller dans un autre fichier excel dans l'onglet synthèse j'ai écris le code mais j'ai un problème j'arrive pas à coller la sélection

            Set ws2 = wbFichierUsager.Sheets("Synthèse")
            Set ws1 = wbSource.Sheets("Maturité 2")
            Last_Row1 = ws1.Range("A" & Rows.Count).End(xlUp).Row - 5
            Last_Row2 = ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
    'Sheets(i).AutoFilterMode = False ' Suppression de tyout Filtre

          wbSource.Worksheets("Maturité 2").Application.Union(Range("A7:A" & Last_Row1), Range("B7:B" & Last_Row1), Range("N7:R" & Last_Row1)).Copy

          Worksheets("Synthèse").Range("F" & Last_Row1).Paste

Merci pour votre aide.

Bien Cordialement

Salut,

Ce n'est pas évident de te répondre, puisque tu ne nous fournis pas tes fichiers

Je travaille donc avec plusieurs suppositions plutôt qu'avec des certitudes.

Si tes deux fichiers sont placés dans le même dossier, la macro ci-jointe devrait fonctionner. Chez moi en tout cas oui.

Le fichier source peut être ouvert ou fermé au lancement de la macro. En l'état actuel, il est toujours refermé à la fin.

Amicalement.