Sub effacer()
reponse = InputBox("1 pour zone1, 2 pour zone2, 3 pour les deux zones", "choix de la zone à effacer ")
Select Case reponse
Case 1: [zone_1] = Empty
Case 2: [zone_2] = Empty
Case 3: [zone_3] = Empty 'les deux zones 1 et 2'
End Select
End Sub