probleme de rafraichissement

Bonjour tous le monde

J'ai un probleme de rafraichissement d'une de mes listbox.
En effet a chaque fois que j'exécute une macro le rafraichissement ne se fait pas et j'ai des informations des autres onglets qui 's'incruste' dans ma listbox.

Voila mon code pour le remplissage de la listbox:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address(0, 0) = 'F16' Then
ListBox1.Clear
    With Sheets('base de donnée fusionnée')
        For Each c In .Range('j2:j' & .Range('j65536').End(xlUp).Row)
            If c = Target Then ListBox1.AddItem c.Offset(0, -9)
        Next c
    End With
    
'Coche automatiquement toutes les cases quand on choisi un nom
For i = 0 To ListBox1.ListCount - 1
         ListBox1.Selected(i) = True
        Next i
         CommandButton1.Caption = 'Décocher toutes les cases'
End If
Range('G18') = ListBox1.ListCount
End Sub

Merci d'avance

Pierrot

En fait quand cela arrive il suffit de changer d'onglet et de revenir pour que tous redevienne normale.
Alors j'ai essayé de le faire par macro mais ca ne marche pas.

Si quelqu'un a une autre idée...

Pierrot

[ERIC S]

Bonjour

a regarder pour les listes 'dynamiques'

nommer la liste (insertion nom définir) et dans 'fait référence à':

si ta colonne n'a pas de titre :
=DECALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A))
avec titre
=DECALER(Feuil1!$A$2;;;NBVAL(Feuil1!$A:$A)-1)


A+