Sub suppression_doublons()
tablo = Range("G1:J" & Range("G" & Rows.Count).End(xlUp).Row)
Set dico = CreateObject("Scripting.dictionary")
For n = LBound(tablo, 1) To UBound(tablo, 1)
For m = LBound(tablo, 2) To UBound(tablo, 2)
x = x & tablo(n, m) & ";"
Next
dico(x) = x
x = ""
Next
A = dico.keys
ReDim tabres(UBound(tablo, 2), 0)
For n = LBound(A) To UBound(A)
x = Split(A(n), ";")
For m = LBound(x) To UBound(x) - 1
If IsNumeric(x(m)) Then
Z = CDbl(x(m))
Else
Z = x(m)
End If
tabres(m, UBound(tabres, 2)) = Z
Next
ReDim Preserve tabres(UBound(tabres, 1), UBound(tabres, 2) + 1)
Next
Range("G1:J" & Range("G" & Rows.Count).End(xlUp).Row).ClearContents
Range("G1").Resize(UBound(tabres, 2), UBound(tabres, 1)) = Application.Transpose(tabres)
End Sub