=INDEX(C$1:C17;0+EQUIV($B$19;$A:$A;0))
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Application.ScreenUpdating = False
Rows.Hidden = False 'affiche tout
If [A1] <> "" Then
With Range("A2", Range("A" & Rows.Count).End(xlUp).MergeArea)
Set r = .Find([A1], , xlValues, xlWhole).MergeArea.EntireRow
.EntireRow.Hidden = True 'masque tout
.Rows(1).Hidden = False
End With
r.Hidden = False 'affiche l'agent
End If
Application.ScreenUpdating = True
End Sub
=INDEX($A$1:$J$17;EQUIV($B$19;$A:$A;0)+COLONNE()-3;EQUIV($B20;$1:$1;0))