Private Sub CommandButton4_Click()
ActiveSheet.Unprotect ("1234") ' On déprotège la feuille
' EFFACER Macro
Application.ScreenUpdating = False
Rows("6:6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Rows("6:6").Select
Selection.ClearContents
Range("C3:D3").Select
Range("A3").Select
Application.ScreenUpdating = True
ActiveSheet.Protect ("1234") ' On reprotège la feuille
End Sub
Private Sub CommandButton5_Click()
ActiveSheet.Unprotect ("1234") ' On déprotège la feuille
' Macro1 Macro
Sheets("source").Range("Tsource[#All]").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A2:E3"), CopyToRange:=Range("A6"), Unique:=False
ActiveSheet.Protect ("1234") ' On reprotège la feuille
End Sub