Sub toto()
Dim i&, j&, k&, l&, Nom$, Msg$, Dat(), Equ()
Dat = Range("Dat").Value
ReDim Equ(UBound(Dat), 6)
Nom = UCase(InputBox("Qui ?", "Cherche..."))
Equ(0, 0) = Nom
For i = 1 To 6: Equ(0, i) = Dat(1, i): Next
For i = 2 To UBound(Dat)
For j = 3 To 5
If Nom = UCase(Dat(i, j)) Then
k = k + 1
For l = 1 To 6: Equ(k, l) = Dat(i, l): Next
Exit For
End If
Next
Next
'Au choix,
' 1° Si on veut afficher :
With [H1]
.CurrentRegion.ClearContents
.Resize(k + 1, 7).Value = Equ
End With
' 2° Si on veut un message :
i = 1
Msg = Equ(0, 0)
Do Until IsEmpty(Equ(i, 1))
Msg = Msg & vbLf & vbTab & Equ(i, 1) & " : " & Equ(i, 2) & " "
For j = 3 To 5
Msg = Msg & Equ(i, j) & " / "
Next
Msg = Msg & Equ(i, j)
i = i + 1
Loop
MsgBox Msg, vbOKOnly
End Sub