probleme sur code listbox

[david]

Bonjour tous le monde

J'ai récupéré le code suivant sur le forum (merci hervé ):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
ListBox1.Clear
If Target.Address(0, 0) = 'F16' Then
    With Sheets('Feuil1')
        For Each c In .Range('k2:k' & .Range('k65536').End(xlUp).Row)
            If c = Target Then ListBox1.AddItem c.Offset(0, -9)
        Next c
    End With
End If
End Sub

Le probleme est que lorsque je veux modifié une cellule de l'onglet, cela m'efface automatiquement le contenu de ma listbox.

Est ce qu'une ame charitable pourrait m'aider merci.

Pour info voici le lien de mon ancien message:
Lien supprimé

 

[JC de Lorient]

salut le forum
essayes peut etre comme ça :

If Target.Address(0, 0) = 'F16' Then
ListBox1.Clear

 

[david]

Merci JC de Lorient, en effet il fallait bien le placer juste apres.

david