Bonjour Rudy,
Tu trouveras en pièce jointe une solution au problème posé (si je l'ai bien compris).
=================================================
Private Sub CommandButton1_Click()
Dim Reponse
Reponse = MsgBox('Confirmez vous votre intention de réinitialiser ZoneVerte et ZoneBleu ?', vbYesNoCancel)
If Reponse = vbYes Then
Range('ZONEVERTE').ClearContents
Range('ZONEBLEUE').ClearContents
End If
End Sub
=================================================
Pour simplifier, j'ai colorié les zones à réinitialiser et ai associé à chacune d'elle une plage nommée.
En te souhaitant une bonne journée
Omicron [file name=Initialisation.zip size=12343]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Initialisation.zip[/file]