Bonjour,
Essaye ce code normalement ça devrait marcher.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig
If Target.Address = "$G$10" Then
For Each c In Range("C1:C" & Range("C1").End(xlDown).Row)
If c.Value = Range("G10").Value And c.Offset(0, 1) <= Range("K2").Value Then
Lig = Range("I" & Rows.Count).End(xlUp).Offset(1, 0).Address
Application.EnableEvents = False
Range(Lig).Value = Cells(c.Row, 1)
Range(Lig).Offset(0, 1).Value = Cells(c.Row, 2)
Range(Lig).Offset(0, 2).Value = Cells(c.Row, 4)
Application.EnableEvents = True
End If
Next
End If
End Sub
J'espère que ça va t'aider.