Bonjour gratteuse,
un bout de code qui te supprime les doublons (la ligne en commentaire crée des lignes vides et nécessite un tri pour réorganiser les données, l'autre supprime toute la ligne doublon et la base reste sans ligne vide)
Sub TriDoublon()
Dim NomFeuille As String
NomFeuille = "Feuil1"
For i = 2 To Sheets(NomFeuille).Cells(Rows.Count, 1).End(xlUp).Row
If Sheets(NomFeuille).Cells(i, 1) <> "" Then
For j = i + 1 To Sheets(NomFeuille).Cells(Rows.Count, 1).End(xlUp).Row + 1
If Sheets(NomFeuille).Cells(j, 1) <> "" Then
'If Sheets(NomFeuille).Cells(i, 1) <> Sheets(NomFeuille).Cells(j, 1) Then Sheets(NomFeuille).Rows(j).ClearContents
If Sheets(NomFeuille).Cells(i, 1) <> Sheets(NomFeuille).Cells(j, 1) Then Sheets(NomFeuille).Rows(j).Delete Shift:=xlUp
End If
Next j
End If
Next i
End Sub