Passage en paramètre d'une zone de valeurs

Bonjour,

je cherche une solution me permettant de passer en paramètre la zone de valeur $H$1:$J$10 qui est un argument de la fonction vlook ci-dessous en utilisant Range("H1").CurrentRegion.select:

Sub copie_Recap()
Sheets(4).Activate
Sheets(3).Columns.Copy Sheets(4).Columns
End Sub

Sub modif2()
Dim Z As Long

  Sheets(4).Activate

  Z = Range("B6").End(xlDown).Row

  Range("B6:B" & Z).Formula = "=VLookup(A6,'" & Sheets(2).Name & "'!$H$1:$J$10, 2, 0)"
End Sub

Merci d'avance pour vos suggestions.

Bonjour

A vérifier

Sub modif2()
Dim Z As Long

  Sheets(4).Activate

  Z = Range("B6").End(xlDown).Row

  Range("B6:B" & Z).Formula = "=VLookup(A6,'" & Sheets(2).Name & "'!" & Sheets(2).Range("H1").CurrentRegion.Address & ", 2, 0)"
End Sub