Sub Essai()
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
For i = 3 To 65536
Sheets("Feuil2").Select
If Cells(i, 2) = "" Then Exit Sub
Cells(i, 2).Copy
Sheets("DR").Select
Range("U1").Select
ActiveSheet.Paste
For j = 3 To 65536
If Cells(j, 3) = "" Then Exit For
If Cells(j, 3) = Range("U1") Then
Cells(j, 11).Copy
Sheets("Feuil2").Select
Cells(i, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("DR").Select
Range("U1").ClearContents
Else
Cells(j + 1, 3).Select
End If
Next j
Cells(i, 2).Select
Next i
Application.ScreenUpdating = True
End Sub