macro recherche

Sub test_OK()
Dim CRIT_EQ$, CRIT_IDENT$, CRIT_FONCT$, CHOIX_CRIT

CHOIX_CRIT = _
    Split(InputBox("Renseigner les critères de sélection des données," & _
    vbLf & "en respectant la syntaxe suivante:" & vbLf & _
    vbLf & "EQUIPE/NOMPRENOM/FONCTION" & _
    vbLf & "Exemple: Orange//Fonction4", "Recherche"), "/")

CRIT_EQ = CStr(CHOIX_CRIT(0))
CRIT_IDENT = CStr(CHOIX_CRIT(1))
CRIT_FONCT = CStr(CHOIX_CRIT(2))

Range("AA16:AC16").Value = Range("A16:C16").Value
[AA17] = IIf(Len(CRIT_EQ) > 0, CRIT_EQ, vbNullString)
[AB17] = IIf(Len(CRIT_IDENT) > 0, CRIT_IDENT, vbNullString)
[AC17] = IIf(Len(CRIT_FONCT) > 0, CRIT_FONCT, vbNullString)

Range("A16:E21").AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=Range("AA16:AC17"), _
    Unique:=False
End Sub