Le message ne s'est pas envoyé je tente par la:
Voila la macro que j'ai utilisé pour les doublons. Il faut changer le nom de la sheets suivant l'utilisation. Si vous pouvez m'envoyer votre dernière version je vais tenter de l'étudier.
En tout cas je vous remercie énormément pour votre patience.
Sub SupDoublonsColAColB()
Application.ScreenUpdating = False
Set f1 = Sheets("Manquant")
a = f1.Range("A1").CurrentRegion.Value
Dim c()
ReDim c(1 To UBound(a, 1), 1 To UBound(a, 2))
ligne = 1
Set mondico = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(a)
temp = a(i, 1) & a(i, 2)
If Not mondico.exists(temp) Then
mondico.Add temp, ""
For k = 1 To UBound(a, 2) - 1: c(ligne, k) = a(i, k): Next k
c(ligne, k) = c(ligne, k) + a(i, k)
ligne = ligne + 1
Else
p = Application.Match(temp, mondico.keys, 0)
col = UBound(a, 2)
c(p, col) = c(p, col) + a(i, col)
End If
Next
f1.[g1].Resize(mondico.Count, UBound(a, 2)) = c
Feuil1.[i3] = (mondico.Count - 1)
End Sub
Edit* : Il faut l'appeler avec Call Sub SupDoublonsColAColB
a l'endroit souhaité, et changer la premiere valeur de la cellule (remplacer le "A1")