Sub Bouton1_QuandClic()
Dim col As Byte
Dim i As Long
Dim j As Byte
Dim plage As Range
Dim ligne As Integer
Application.ScreenUpdating = False
ligne = Range("a65536").End(xlUp).Row
col = Range("iv1").End(xlToLeft).Column + 1
For i = 2 To ligne
For j = 1 To col - 1
Cells(i, col) = Cells(i, col) & Cells(i, j)
Next j
Next i
Set plage = Range(Cells(2, col), Cells(ligne, col))
For i = ligne To 2 Step -1
If Application.CountIf(plage, Cells(i, col)) > 1 Then
Rows(i).Delete
End If
Next i
Columns(col).Delete
Application.ScreenUpdating = True
End Sub