Sub aller()
Dim pl As Range
With Sheets("Feuil3")
Set pl = .Range("B4:D" & .[A65000].End(xlUp).Row)
pl.Name = "base"
Set pl = .Range("A4:A" & .[A65000].End(xlUp).Row)
pl.Name = "dates"
Set pl = .Range(.Cells(3, 2), .Cells(3, .[IV3].End(xlToLeft).Column))
pl.Name = "noms"
End With
With Sheets("Feuil1")
Set pl = .Range("B7")
pl.Name = "date1"
Set pl = .Range("D7")
pl.Name = "nom"
End With
x = Evaluate("Index(base,match(date1,dates,0),match(nom,noms,0))").Address
Sheets("Feuil3").Select
Range(x).Select
End Sub