Sub report()
Application.ScreenUpdating = False
Range("N2:N" & Range("N65536").End(xlUp).Row).Copy
Range("P2").PasteSpecial Paste:=xlPasteValues
Range("P2:P" & Range("P65536").End(xlUp).Row).Sort Key1:=Range("P2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For n = 2 To Range("P65536").End(xlUp).Row
For m = 2 To Sheets("Feuil1").Range("C65536").End(xlUp).Row
x = Split(Range("P" & n), "-")
If InStr(Sheets("Feuil1").Range("C" & m), x(0)) <> 0 And InStr(Sheets("Feuil1").Range("C" & m), x(1)) <> 0 Then
Sheets("Feuil1").Range("A" & m & ":S" & m).Copy Destination:=Range("V" & n)
End If
Next m
Next n
Application.ScreenUpdating = True
End Sub