Bonjour,
Ta macro s'éxécute pas en page 1.
Tu pourrais enlever la protection qu'on puisse travailler dessus ton fichier ?
merci
Franck
J'ai tenté ça mais...ça n'a pas l'air de trop marcher
Private Sub CommandButton1_Click()
Application.EnableEvents = False 'interdit les macro événementielles
Application.ScreenUpdating = False 'masque les raffraîchissements d'écran
ActiveCell.Select 'enlève le focus au bouton
Sheets(1).Unprotect Password:="BUFRA2020!"
For Each c In Range("G2", [G65000].End(xlUp))
If c.Value = "Archivé" Then c.EntireRow.Hidden = True
Next c
Sheets(4).Unprotect Password:="JEN2048#"
For Each c In Range("G2", [G65000].End(xlUp))
If c.Value = "Archivé" Then c.EntireRow.Hidden = True
Next c
Sheets(5).Unprotect Password:="JEN2048#"
For Each c In Range("G2", [G65000].End(xlUp))
If c.Value = "Archivé" Then c.EntireRow.Hidden = True
Next c
Sheets(6).Unprotect Password:="IIN2020!"
For Each c In Range("G2", [G65000].End(xlUp))
If c.Value = "Archivé" Then c.EntireRow.Hidden = True
Next c
Sheets(7).Unprotect Password:="CVA2041$"
For Each c In Range("G2", [G65000].End(xlUp))
If c.Value = "Archivé" Then c.EntireRow.Hidden = True
Next c
Sheets(8).Unprotect Password:="HSE2045?"
For Each c In Range("G2", [G65000].End(xlUp))
If c.Value = "Archivé" Then c.EntireRow.Hidden = True
Next c
Sheets(9).Unprotect Password:="CVA2042$"
For Each c In Range("G2", [G65000].End(xlUp))
If c.Value = "Archivé" Then c.EntireRow.Hidden = True
Next c
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$"
Application.EnableEvents = True 'autorise les macro événementielles
Application.ScreenUpdating = True 'masque les raffraîchissements d'écran
End Sub