VBA & derligne

Bonjour!

Je suis trop ignorant en VBA et je sèche. Je remercie par avance celui qui me viendra en aide!

J'ai ces colonnes:
A:F sont mes données entrantes
G:R des formules

ce que je souhaite:
copier coller en valeur toutes les colonnes dans un autre onglet puis filtrer

mon bug:
j'ai jamais le même nombre de lignes de données A:F
donc quand je développe mes formules (Autofill), la fois suivante j'ai pas assez ou trop de cellules G:R qui perturbent mes filtres...

J'ai bien essayé d'utiliser une variable DerLigne avec la colonne F (actuellement 3453 lignes)
mais rien à faire la ligne -> bug




Sub testz()
'
' testz Macro
'

'
Dim DerLigne As Long
-> DerLigne = Range("F" & Rows.Count).End(x1up).Row

Range("G3:R3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents
'ici j'efface les lignes qui seraient en trop (ma dernière importation avait 3687 lignes)

Range("G2:R2").Select
Selection.Copy
Range("G3:R3").AutoFill Destination:=("G3:R" & DerLigne)
ActiveSheet.Paste
'ici j'aimerais dérouler ma formule jusqu'à la dernière ligne de la colonne F

End Sub