Sub Macro1()
'Macro1 Macro
' Macro enregistrée le 18/12/2011 par l'agrafe
On Error Resume Next
Selection.AutoFilter Field:=1, Criteria1:="=*,*", Operator:=xlAnd
[_FilterDatabase].Offset(1).SpecialCells(12) = Empty
ActiveSheet.AutoFilterMode = False
End Sub