[karim468]

a votre service mdame,
vous pourriez pas me dire si ce qui suit est correcte:
Sub test()
Dim i As Long, j As Long, val As Variant
Application.ScreenUpdating = False
For i = 2 To Range("A65536").End(xlUp).Row
Sheets("liste").Select
val = Cells(i, 1)
For j = 2 To Range("A65536").End(xlUp).Row
If Sheets("vueglobale").Cells(i, 1).Value <> val Then
Sheets("vueglobale").Range("E65536").End(xlUp).Val ue = Selection.EntireRow.Value
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub