Suppression doublon cellule sur une même ligne

Bonjour, j'ai vérifié tous les messages avec ce titre mais je ne trouve pas ce que je cherche,

un suppression simple de doublon sur une même ligne sur un gros fichier, rien de super élaboré,

voici un fichier pour illustrer

par avance merci

j'ai trouvé ca

Sub SupprDoublons()

For i = 2 To 5000 'les lignes a traiter

Set champ = Cells(i, 1).Resize(, 14)

For c = 14 To 2 Step -1 ' les colonnes de N à B

If Cells(i, c).Value <> "" Then

If Application.CountIf(champ, Cells(i, c)) > 1 Then Cells(i, c) = ""

End If

Next c

Next i

End Sub

ca marche

mais comment faire aller jusque la fin du fichier automatiquement au lieu de donner un nombre de ligne des le depart

For i = 2 To 5000 'les lignes

C'est bon , désolé, je me repond a moi meme