Effacement de cellule si changement dans une liste déroulant

Bonjour

Je voudrais effacer le contenu de cellules des que je change la valeur d'une liste déroulante

J'ai bien trouvé ceci

If Not Application.Intersect(Target, Range("d3")) Is Nothing Then

Range("e3").ClearContents

End If

Sauf que je voudrai l'appliquer à des valeurs relatives

Les cellules a ne sont pas fixes mais fonction de la ligne active

Merci

Bonsoir

abileor a écrit :

Sauf que je voudrai l'appliquer à des valeurs relatives

Les cellules a ne sont pas fixes mais fonction de la ligne active

Pas très clair.

Quelque chose comme Target.Offset(0, 1).ClearContents

Si pas ça, poste un fichier

Amicalement

Nad

Merci grace a ta réponse et une autre recherche en attendant et c'est parfait

merci

la formule utilisée est donc celle-ci

If Not Application.Intersect(Target, Range("d:d")) Is Nothing Then

Target.Offset(0, 1).ClearContents

End If

Merci a toi