Sub test()
Range("U1:U1000").ClearContents
Lig = Application.WorksheetFunction.CountA(Range("A2:A10000"))
Col = Application.WorksheetFunction.CountA(Range("A2:ZZ2"))
Index = 1
For C = 1 To Col
For C2 = C + 1 To Col
Paspareil = 0
For L = 2 To Lig
If Cells(L, C) <> Cells(L, C2) Then
Paspareil = 1
Exit For
End If
Next L
If Paspareil = 0 And C <> C2 Then
Range("U1:U1000").Cells(Index, 1) = "Colonnes " & C & " - " & C2 & " identiques"
Index = Index + 1
End If
Next C2
Next C
End Sub