Private Sub Worksheet_Change(ByVal Target As Range)
Dim Evo As Worksheet, Ref As Worksheet, Ventes As Worksheet
Dim RefLig As Long, VenteLig As Long, i As Long, J As Long, x As Long
If Not Intersect(Target, Range("C3")) Is Nothing Then
Set Evo = Worksheets("EVOLUTION DES VENTES")
Set Ref = Worksheets("REF PRODUITS")
Set Ventes = Worksheets("VENTES")
RefLig = Ref.Range("A" & Rows.Count).End(xlUp).Row
VenteLig = Ventes.Range("A" & Rows.Count).End(xlUp).Row
x = 5
For i = 4 To RefLig
If Ref.Cells(i, 1) Like Evo.Range("C3") & "*" Then
For J = 4 To VenteLig
If Ref.Cells(i, 1) = Ventes.Cells(J, 1) Then
x = x + 1
Ventes.Range("B" & J & ":E" & J).Copy Evo.Range("A" & x)
Exit For
End If
Next
End If
Next
End If
End Sub