A tous,
Merci beaucoup pour votre aide, j'ai simplifie vos propostions afin d'inclure cette action au sein d'une autre macro deja en place dans le document.
le code complet est donc le suivant :
'lancement de macro par bouton'
Sub enregistrer_classeur()
ActiveSheet.Unprotect Password:="azerty"
Range("A1:I1,A2:E2,A3:I52").Select
Range("A3").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
'enregistrment du doc en fonction des infos remplies'
Dim chemin As String, fichier As String
chemin = "G:\Site\pompier\Cahier de Quart\"
fichier = chemin & Range("G2") & " " & Range("H2") & " " & Range("I2") & ".xlsm"
ActiveWorkbook.SaveAs Filename:=fichier
'activation des cellules protégées'
ActiveSheet.Unprotect
Range("B2,D2:E2,G2:I2,B5
10,B11,D11,F5:I11,A13:I52").Select
Range("A13").Activate
Selection.Locked = False
Selection.FormulaHidden = False
Range("G2:I2").Select
Selection.Interior.ColorIndex = xlNone
ActiveSheet.Protect DrawingObjects:=False, contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowSorting _
:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
'affichage des onglets masqués'
Sheets("Notifications vehicules & PCSI").Visible = True
Sheets("Recap Activité du Poste & Valid").Visible = True
Sheets("Inventaire Armoire outils").Visible = True
Sheets("Page de garde").Select
'affichage de l'onglet "Verif PCex" lorsque la valeur "Vendredi" est presente dans la case D2 de l'onglet "Page de garde"
If Sheets("Page de Garde").Range("D2").Text = "Vendredi" Then
Sheets("Verif Pcex").Visible = True
ActiveSheet.Protect Password:="azerty"
End If
End With
End Sub