Re
J'ai trouvée cette macro qui m'élimine le doublon. Or moi c'est les doublons et l'original (du doublon) que je souhaite effacer. Donc cette macro ne vas pas !!!
Sub Princ()
'Macro permettant de supprimer les doublons
Dim Plage As Range
Dim T
'Indiquer les références de la plage sélectionnée
'à adapter en fonction des extractions
Set Plage = Range('A2:J502')
'Indiquer le numéro de la colonne dans laquelle les doublons apparaîssent
T = Doublons(Plage.Value, 7)
If IsArray(T) Then
T = InverseTab(T, 1)
With Plage
.Clear
.Cells(1, 1).Resize(UBound(T), UBound(T, 2)) = T
End With
Else: MsgBox T
End If
End Sub
Function Doublons(T, ColT As Byte) 'Zon
Dim I&, J&, K&, Tablo As New Collection
Dim Temp()
For I = LBound(T, 1) To UBound(T, 1)
On Error Resume Next
Tablo.Add T(I, ColT), CStr(T(I, ColT))
If Err = 0 Then
ReDim Preserve Temp(1 To UBound(T, 2), 1 To J + 1)
For K = 1 To UBound(Temp)
Temp(K, J + 1) = T(I, K)
Next K
J = J + 1
End If
Next I
Doublons = IIf(J > 0, Temp, 'Pas de doublons')
End Function
Function InverseTab(T, Optional Base As Byte = 0)
Dim Temp(), I&, J&
ReDim Temp(Base To UBound(T, 2), Base To UBound(T))
For I = LBound(T, 2) To UBound(T, 2)
For J = LBound(T) To UBound(T)
Temp(I, J) = T(J, I)
Next J
Next I
InverseTab = Temp
End Function