Bonjour,
La forme n'est pas la même que votre tableau d'origine, mais cela me paraît suffisant.
Option Explicit
Sub ListerLesDoublons()
Dim I As Integer, J As Integer, DerniereLigne As Integer, IndexListe As Integer
Dim ListeSansDoublons As Object
Dim Cellule As Range, AireCellules As...