Cellule faisant référence à une plage au sein d'une formule

Bonjour,

Je débute en VBA, et je bloque particulièrement sur une ligne.
Je cherche à créer une boucle avec une fonction vlookup qui utiliserait comme plage la caption d'une cellule situé 3 colonnes à gauche de ma variable "dat", cette cellule ayant pour caption le nom d'une plage de fichier excel.



Voila mon code,

Dim dat As Range
Dim a As Integer

a = 6

For Each dat In Range("e6:e65")
If dat.Value = "NATURE" Then Exit For
If dat.Value = "DAT" Or dat.Value = "EMTN" Then

If dat.Offset(0, -3).Columns.Count < 3 Then
Cells(a, 9).Formula = WorksheetFunction.VLookup("Penalties", dat.Offset(0, -3), 2, False)
Else: Cells(a, 9).Formula = WorksheetFunction.VLookup(MONDATE, dat.Offset(0, -3), 12, False)
End If

Else: a = a + 1
a = a + 1
End If

Next dat

End Sub

Merci à tous pour votre aide en avance,