Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim data As Collection
Dim i As Integer, j As Byte
Dim x As Byte, compteur As Byte, k As Byte
tablo = Range('a1:f' & Range('a65536').End(xlUp).Row)
Set data = New Collection
On Error Resume Next
For i = 1 To UBound(tablo)
data.Add CStr(tablo(i, 1)), CStr(tablo(i, 1))
Next i
On Error Resume Next
For i = 1 To data.Count
For j = 1 To UBound(tablo, 1)
If data.Item(i) = tablo(j, 1) Then
compteur = compteur + 1
End If
Next j
For j = 1 To UBound(tablo, 1)
If compteur > 1 Then
If data.Item(i) = tablo(j, 1) And _
tablo(j, UBound(tablo, 2)) <> '' Then
x = x + 1
For k = 1 To UBound(tablo, 2)
Sheets('feuil2').Cells(x, k) = tablo(j, k)
Next k
End If
Else
If data.Item(i) = tablo(j, 1) Then
x = x + 1
For k = 1 To UBound(tablo, 2)
Sheets('feuil2').Cells(x, k) = tablo(j, k)
Next k
End If
End If
Next j
compteur = 0
Next i
End Sub