Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Long
Dim sh As Worksheet
Dim a
Dim b
Dim cel As Range
Dim line As Long
a = Target.Offset(0, -1).Value
'j'enregistre la valeur (texte ou numerique) de la cellule à gauche de celle dont je vais changer la valeur
b = Target.Value
' enregistre la valeur de la cellule dont je change la valeur
[COLOR=red][B]Set sh = Worksheets("Interactions")
[/B][/COLOR]
For line = 4 To 46 'pour ligne de 4 à 46 de ce tableau
If a = [COLOR=red][B]sh.[/B][/COLOR]Cells(line, 3).Value And b = [COLOR=red][B]sh[/B][/COLOR].Cells(line, 4).Value Then
'Si on a la meme combinaison de valeur "a" et "b" à une certine ligne de ce tableau
For Each cel In [COLOR=red][B]sh.[/B][/COLOR]Range([COLOR=red][B]sh[/B].[/COLOR]Cells(line, 5), [COLOR=red][B]sh[/B][/COLOR].Cells(line, 19))
'Pour chaque cellule de cette ligne je copie les valeurs si non vides dans ma listbox située sur la feuille "Feuil1"
If cel.Value <> "" Then
ListBox1.AddItem cel.Value
End If
Next cel
End If
Next line
End Sub