Sub Filtrer()
With DrawingObjects(Application.Caller)
If .Text = "RAZ" Then
.Text = "Filtrer"
If FilterMode Then ShowAllData
Else
.Text = "RAZ"
[I2] = "=AND(--MID(G2,21,5)>300,--MID(G2,21,5)<700,RIGHT(G2,3)="" OK"")"
[A1].CurrentRegion.AdvancedFilter xlFilterInPlace, [I1:I2]
[I2] = ""
End If
End With
End Sub