XL 2016 Workbook_SheetChange avec plusieurs cellules

[osthein]

Bonjour, je travaille sur une feuille excel avec des menus déroulants. j'aimerais que chaque fois que je change un choix dans un menu, les valeurs reprises dans les cellules avec d'autres menus s'effacent.
J'utilise le code repris ci-dessous. Et il fonctionne quand je change mon choix dans la cellule B3
J'aimerais qu'il s'applique aussi quand le choix sur la cellule H3 change. comment dois je faire ?
Car si j'utilise un OR, il efface d'office mon choix
Code
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.AddressLocal = "$B$3" Then
If Range("SERVICE").Value <> "" Then
Range("SERVICE").Value = ""
End If
If Range("ENTREPRENEUR").Value <> "" Then
Range("ENTREPRENEUR").Value = ""
End If
If Range("MARCHE").Value <> "" Then
Range("MARCHE").Value = ""
End If
If Range("NUMERO_CONTRAT").Value <> "" Then
Range("NUMERO_CONTRAT").Value = ""
End If

End If


End Sub

 

[MP59]

Bonjour Osthein,
sans fichier d'exemple, pas sûr d'avoir compris.
Essaye ceci au cas où :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$B$3" Or Target.Address = "$H$3" Then
        ActiveSheet.Range("SERVICE,ENTREPRENEUR,MARCHE,NUMERO_CONTRAT").Value = ""
    End If
End Sub