Problème application Morceau de code

Bonjour à tous,

Je me retourne vers vous car j'ai un soucis dans l'exécution de mon code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$8" Then
UserForm1.Show
End If

For l = 19 To 24
Cells(l, 4).Clear
Next

i = Sheets("REFERENCE").Range("C500").End(xlUp).Row

For j = 1 To i
If Cells(16, 3).Value = Sheets("REFERENCE").Cells(j, 3).Value Then
Cells(19 + k, 4).Value = Sheets("REFERENCE").Cells(j, 4)
k = k + 1
End If
Next

End Sub


En effet, je cherches à faire apparaître des valeurs en fonction de la valeur qu'il y a dans la cellule C16. La cellule C16 est une liste déroulante dépendante de la formule suivante:

=DECALER(REFERENCE!$C$1;EQUIV($G$8;REFERENCE!$A:$A;0)-1;;NB.SI(REFERENCE!$A:$A;$G$8))

Le code fonctionne sur un autre classeur mais pas le moindre sur le programme où j'en ai besoin, comme si n'exécutait pas ce code.. Quelqu'un aurait-il des solutions à mon problème ?


Merci à tous.