ok, tu as éxécuté la macro ?
J'ai fait ça comme code et ça marche plutôt bien
Private Sub CommandButton1_Click()
Sheets(1).Unprotect Password:="BUFRA2020!"
Sheets(4).Unprotect Password:="JEN2048#"
Sheets(5).Unprotect Password:="JEN2048#"
Sheets(6).Unprotect Password:="IIN2020!"
Sheets(7).Unprotect Password:="CVA2041$"
Sheets(8).Unprotect Password:="HSE2045?"
Sheets(9).Unprotect Password:="CVA2042$"
Sheets("Suivi Projets").Select
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=7, Criteria1:= _
"En cours"
Sheets("Suivi Contrats").Select
ActiveSheet.ListObjects("Tableau3").Range.AutoFilter Field:=7, Criteria1:= _
"En cours"
Sheets("Suivi Paies").Select
ActiveSheet.ListObjects("Tableau4").Range.AutoFilter Field:=7, Criteria1:= _
"En cours"
Sheets("Suivi Congés").Select
ActiveSheet.ListObjects("Tableau5").Range.AutoFilter Field:=7, Criteria1:= _
"En cours"
Sheets("Suivi Consultants").Select
ActiveSheet.ListObjects("Tableau6").Range.AutoFilter Field:=7, Criteria1:= _
"En cours"
Sheets("Suivi VM").Select
ActiveSheet.ListObjects("Tableau7").Range.AutoFilter Field:=7, Criteria1:= _
"En cours"
Sheets("Suivi FIDAA-PEI").Select
ActiveSheet.ListObjects("Tableau8").Range.AutoFilter Field:=7, Criteria1:= _
"En cours"
Sheets("Suivi Détachement").Select
ActiveSheet.ListObjects("Tableau9").Range.AutoFilter Field:=7, Criteria1:= _
"En cours"
Sheets("Suivi Contrats").Select
Sheets(1).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="BUFRA2020!"
Sheets(4).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="JEN2048#"
Sheets(5).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="JEN2048#"
Sheets(6).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="IIN2020!"
Sheets(7).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="CVA2041$"
Sheets(8).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="HSE2045?"
Sheets(9).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="CVA2042$"
End Sub