Sub Filtrer()
Application.ScreenUpdating = False
With Feuil1.[A1].CurrentRegion.Resize(, 9)
.Rows(2).EntireRow.Insert
.Cells(2, 1) = "c1": .Cells(2, 1).AutoFill .Cells(2, 1).Resize(, 9) 'titres provisoires
.Cells(3, 10) = "=AND((A3=A$1)+ISBLANK(A$1),(B3=B$1)+ISBLANK(B$1),(C3=C$1)+ISBLANK(C$1))" & _
"+AND((D3=A$1)+ISBLANK(A$1),(E3=B$1)+ISBLANK(B$1),(F3=C$1)+ISBLANK(C$1))" & _
"+AND((G3=A$1)+ISBLANK(A$1),(H3=B$1)+ISBLANK(B$1),(I3=C$1)+ISBLANK(C$1))" 'critères
.Offset(1).AdvancedFilter xlFilterInPlace, .Cells(2, 10).Resize(2) 'filtre avancé
.Cells(3, 10) = ""
.Rows(2).EntireRow.Delete
End With
End Sub
Sub RAZ()
If Feuil1.FilterMode Then Feuil1.ShowAllData
End Sub