J'ai trouvé la solution alors certes mon PC est surement pour quelque chose
Le truc c'est que le fichier dans lequel j'utilise la macro comporte beaucoup de formule donc sa ramait.
Je donne la solution si cela peut servir à d'autre personnes.
Désactiver le calcul automatic:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.Calculation = xlManual ' bloque le calcul automatique.
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("W20")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Range("B22:F500").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("W19:W20"), Unique:=False
End If
Application.Calculation = xlAutomatic ' met en place le calcul automatique
Application.EnableEvents = True
End Sub