For i = 1 To Sheets(2).Range('A65000').End(xlUp).Row
With Sheets(2)
RefFeui2 (.Cells(i, 1) & ',' & .Cells(i, 2) & ',' & .Cells(i, 3) & ',' & .Cells(i, 4))
End With
For u = 1 To Sheets(1).Range('A65000').End(xlUp).Row
With Sheets(1)
RefFeuil (.Cells(u, 1) & ',' & .Cells(u, 2) & ',' & .Cells(u, 3) & ',' & .Cells(u, 4))
End With
If RefFeui2 = RefFeuil Then
Exit For
End If
Next u
If RefRow = 'PasTrouvé' Then
Sheets(2).Range(Cells(i, 1), Cells(i, 4)).Copy Destination:= _
Sheets(1).Cells(Cells(65536, 1).End(xlUp).Row + 1, 1)
RefRow = 'Trouvé'
End If
Next i