Sub Filtrer(critère As String)
'
With Sheets("Planning")
.Range("$A$3:$B$" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter Field:=2, Criteria1:="<>" & critère, _
Operator:=xlAnd
End With
End Sub
Sub appelfiltre()
'MsgBox Application.Caller
Filtrer (UCase(Application.Caller))
End Sub