Macro copier lignes restantes apres filtre

Bonjour,

Je cherche une solution à ma macro

J'ai des onglets possédant des tableaux de commande. Je veux créeer une macro qui filtre ces tableaux (selon un critère) copie colle en valeur les lignes visibles dans un autre onglet.

Mais ces tableaux doivent dynamique

voici ma macro que j'ai crée

Sheets("V").Select
Range("D68:T93").Select 'comment la rendre dynamique
Range("D68:T93").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("Criteria"), Unique:=False


Sheets("V").Range("D69:S" & Range("D65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select

Sheets("Load").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("V").Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData

Merci de votre aide