Effacer les valeurs ?

Bonsoir, j'aimerai que les valeurs qui se trouvent en "B4:H16" soient effacées dès lors que je change de valeur dans ma liste déroulante.

Avec une macro qui agirait sur ma feuille, je vous remercie d'avance.

Bonsoir

Code à placer dans le module de la feuille

Clic droit sur l'onglet de la page "Feuil1" ---> Visualiser le code

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then Range("B4:H16").ClearContents
End Sub

bonsoir!

je vous propose ceci:

pour commencer je recopie(et non range("I6")=range("A1")) la valeur de la liste déroulante une cellule par exemple "I6" et ensuite dans le module de feuille de la feuille j'écris le code suivant:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
    If Target.Value <> Range("I1").Value Then
        Range("b4:h16").ClearContents
        Range("I1") = Target.Value
    End If
End If
End Sub

Superbe, et rapide ! gros merci.