XL 2016 Excel VBA 2016 macro copier coller un tableau de taille variable

[anbar]

Bonjour

Je vous sollicite pour une aide pour créer une Macro qui me permettra de copier un tableau excel de taille variable, du Classeur 1 au classeur 2 en supprimant la 1ere ligne, la dernière ligne et la dernière colonne. les deux classeurs sont ouverts.

Avec un grand merci à vous tous.

Ci-joint les deux classeurs.

 

[jpb388]

Bonjour à tous
je suis parti du principe que ton tableau débutait toujours en a2

Sub copiercoller()
    Dim Lg%, Col%, Ws As Worksheet, Sh As Worksheet
    Set Ws = Workbooks("Classeur1.xlsm").Sheets("Vantaux sur mesure")
    Set Sh = Workbooks("Classeur2.xlsm").Sheets(1)
    Lg = Ws.Range("A" & Rows.Count).End(xlUp).Row - 1
    Col = Ws.Cells(1, Columns.Count).End(xlToLeft).Column - 1
   Ws.Range(Ws.Cells(2, 1), Ws.Cells(Lg, Col)).Copy Sh.Range("A2")
    
End Sub