Sub Masquer1()
ActiveSheet.Protect UserInterfaceOnly:=True, AllowFiltering:=True
ActiveSheet.AutoFilterMode = False
Range("F1:F184").AutoFilter 1, "<>"
Range("C:D,F:F").EntireColumn.Hidden = True
End Sub
Sub Afficher1()
ActiveSheet.Protect UserInterfaceOnly:=True
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub