Voilàa le fichier sur lequel j'ai un problème:
Sinon ma macro est:
Sub Suppdoublons()
Dim Plage As Range, i&, Cell As Range, Rng As Range
Dim Lig As Long
Lig = Range('B1000').End(xlUp).Row
' Suppression des doublons dans la colonne A
Set Plage = Application.Range('A1:A' & Lig)
If IsEmpty(Plage) Then Exit Sub
Application.ScreenUpdating = False ' écran(faux)
For Each Cell In Plage
For i = 1 To Lig
Set Rng = Cell.Offset(i)
If Rng <> '' And Rng = Cell Then
Range('A' & Cell.Row).Select
Ligne = Cell.Row
' ajout des valeurs de la colonne D lors d'une détection de doublons
Cells(Ligne, 4).Value = Cells(Ligne, 4).Value + Cells(Ligne + i, 4).Value
' suppression de la ligne en doublons
Range(Cells(Ligne + i, 1), Cells(Ligne + i, 5)).Delete
' sortie de la boucle
Exit For
End If
Next i
Next Cell
End Sub