Macro effacement

Bonjour,

pour mon fichier en pièce jointe j'a créé une ligne de commande qui m'efface le nom de ville quand je change le département (pour forcer l'utilisateur à saisir la bonne ville si on change le département), mais je n'arrive pas à trouver comment faire pour que cela fonctionne pour toutes les lignes du tableau, et pour effacer chaque cellule en vert de la ligne concernée lorsqu'on change un département ?

Merci d'avance pour votre aide.

Bonjour

Votre code comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, ListObjects(1).ListColumns(2).DataBodyRange) Is Nothing Then
    Target.Offset(0, 1).ClearContents
End If
End Sub

Si ok -->

Cordialement

C'est parfait, merci. Ça fonctionne parfaitement après une petite adaptation pour mon tableur de travail.

Joyeuses fêtes.