tulipe_4 a écrit :
re steelson
sois sympa
propose lui un petit "dictionnary"
ok et même sans dico
écrit rapidement, il y a plus "propre"
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I2")) Is Nothing Then
ligne = 2
der = [J1].End(xlDown).Row
Range(Cells(ligne, "J"), Cells(der, "J")).ClearContents
For i = 3 To [C3].End(xlDown).Row
If Cells(i, "C").Value = Cells(2, "I").Value Then
Cells(ligne, "J").Value = Cells(i, "D").Value
ligne = ligne + 1
End If
Next
End If
End Sub