Option Explicit
Dim DicÉv As Dictionary
Sub Test()
Dim T(), L&, Clé As String
T = Feuil1.[A2].Resize([A60000].End(xlUp).Row - 1).Value
Set DicÉv = New Dictionary
For L = 1 To UBound(T): DicÉv(T(L, 1)) = L: Next L
Rem. Vérification
Clé = "Evènement 3"
If Not DicÉv.Exists(Clé) Then Exit Sub
L = DicÉv(Clé)
T = Feuil1.[A2:E60000].Rows(L).Value
MsgBox Clé & ": " & T(1, 2) & ", " & T(1, 3) & ", " & T(1, 4) & ", " & T(1, 5)
End Sub