Sub test()
Dim D As New Collection, A As New Collection, Id As Integer, Ia As Integer
With Sheets("Feuil1")
.Columns(2).Clear
For Ia = 0 To .Range("A1").CurrentRegion.Rows.Count - 1
Debug.Print .Range("A1").Offset(Ia).Value
D.Add Ia, .Range("A1").Offset(Ia).Value
A.Add Ia, .Range("A1").Offset(Ia).Value
Next
Randomize Format(Timer)
While D.Count > 0
DoEvents
Id = Int(D.Count * Rnd + 1)
Ia = Int(D.Count * Rnd + 1)
If .Range("A1").Offset(D(Id)) <> .Range("A1").Offset(A(Ia)) Then
.Range("B1").Offset(A(Ia)) = .Range("A1").Offset(D(Id))
D.Remove Id: A.Remove Ia
End If
Wend
End With
End Sub