Mon précédent message ayant été censuré (lien interdit ?!!) voici le résumé de ma réponse.

Solution de base en macro VBA, faire [Alt] + [F11], aller dans le code la feuille où se trouve les données et coller cette macro :

'-----------------------------------------------------------­-------------------------------------------------------

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Col As String, nCol As Integer, Cherche As String
    On Error GoTo Fin
    nCol = ActiveCell.Column
    Col = Chr(nCol + 64)
    
    'valeur cherchée dans cette colonne
    Cherche = InputBox("Valeur Cherchée ?")
    
    'rien ou click sur Annuler = on stope
    If Cherche = "" Then Exit Sub
    
    Selection.AutoFilter Field:=nCol, Criteria1:="=*" & Cherche & "*", Operator:=xlAnd
    
    Exit Sub
Fin:
    MsgBox "Excel n'a pas pu trouver la liste à filtrer", vbInformation
End Sub