Bonsoir Rudy,
Tu trouveras ci-joint une version simplifiée de la précédente.
Plus de plages nommées zonebleue, zoneverte, ....(même si celà est très pratique)
Tu adaptes ton code comme indiqué si dessous, et celà doit marcher ...
=================================================
Private Sub CommandButton1_Click()
Dim Reponse
Reponse = MsgBox('Confirmez vous votre intention de réinitialiser ZoneVerte et ZoneBleu ?', vbYesNoCancel)
If Reponse = vbYes Then
Range('E4:E6').ClearContents
Range('M4:M6').ClearContents
Range('E17:G36').ClearContents
Range('M17:O36').ClearContents
'Insérer à la suite les autres Plages à réinitialiser
End If
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Chaque Plage (Range) décrit un bloc (Rectangle) de 1 à n cellules contigues
La première est celle qui est située le plus en haut à gauche ...
La dernière est celle qui est située le plus en bas à droite ...
En espérant avoir répondu à la question !!!
Cordialement
Omicron