Bonjour,
vous pouvez déjà essayer de connaître la dernière ligne utilisée par cette instruction :
Dim DerLigne As Long
DerLigne = Sheets("MaFeuille").Range("A" & Rows.Count).End(XlUp).Row
Ensuite il suffit de prendre la plage de cellule de cette ligne vers la 30 ième vers "le haut" si cela est possible :
Range("A" & DerLigne-30 & ":H" & DerLigne).Copy Destination:=Sheets("MonExtract").Range("B2")
Donc à tester le DerLigne -30 ne doit pas être inférieur à 1 !
@ bientôt
LouReeD