Bonjour à tous,

Je recherche un bout de code qui efface automatiquement des cellules quand l'utilisateur change de choix dans la liste déroulante.
La liste déroulante se trouve sur toutes les lignes en colonne I et je veux que ça efface la ligne correspondante dans les colonnes L et M.

J'ai fait ça mais ça boucle indéfinniment à chaque execution du clearcontents...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
 
ligne = Target.Row
Colonne = Target.Column
 
  If Colonne = 9 And Target.Row > 5 Then
    Range(Cells(ligne, Colonne + 3), Cells(ligne, Colonne + 4)).ClearContents
  End If
 
 
End Sub
Merci de votre aide