Salut pbpb
Tu peux placer sa dans un module classique :
Sub Macro2()
For x = 1 To Worksheets.Count 'De la feuille 1 à la dernière feuille
If Sheets(x).Name = "Résultat" Then Exit For 'Si la feuille s'appel "Résultat" alors on arrête
Sheets(x).Select
ActiveSheet.Unprotect 'On retire la protection de la Feuil n°x
Cells.Locked = False 'On déverouille TOUTE les cellules de la feuilles
Range("C1:C32").Locked = True 'On verouille les cellules qui nous intéresse
Range("D1:D3").Locked = True
Range("D5:D17").Locked = True
Range("D27:D32").Locked = True 'On protège la feuille :
Sheets(x).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub
Le code s’exécutera de la Feuil 1 jusqu'à ce qu'il atteigne la Feuil "résultat"
Restant à ta dispo!