Faire un filtre personnalisé en VBA

  [A5].AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'On Error Resume Next
'*** Catégorie
If Not Intersect(Target, Range("B1:F1")) Is Nothing And _
Target.Value <> "" Then
    Cancel = True
    [B]If ActiveSheet.AutoFilterMode = False Then Range("A2:V2").AutoFilter[/B]
    Range("Jours").Font.Bold = False
      [A2].AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"
    '[A5].AutoFilter Field:=1, Criteria1:=Target.Value
    Target.Font.Bold = True
End If
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Cancel = True
    Range("Jours").Font.Bold = False
    ActiveSheet.AutoFilterMode = False
End If
Cancel = True 'evite le mode édition lié au double-clic
If Not Application.Intersect(Target, Range("H3:O10,H18:O25")) Is Nothing Then
'If Target.Column = 8 Or 9 Or 10 Or 11 Or 12 Or 15 Then
If Target.Value = "" Then 'condition : si la céllule est vide
Target.Value = "X" 'place une croix (un X majuscule) dans la cellule
Target.HorizontalAlignment = xlCenter 'allignement centré
Target.VerticalAlignment = xlCenter 'allignement centré
Target.Font.Bold = True 'gras
Selection.Font.Size = 16


ElseIf Target.Value = "X" Then Target.Value = ""   '''''.Clear 'si la cellule contient une croix (un X majuscule), efface
End If 'fin de la condition
End If
End Sub