doublons +vba

Bonjour,

Merci à tous pour mon problème d'occurence !
une petite dernière, la macro ci-dessous(qui n'est pas de moi) :)
permet d'effacer les doublons en A1 (?)

Comment la modifier pour lui dire de A1 à E1 ????

Merci et un bon dimanche

Gilles


Sub supprdoublons()
Const Cell_Depart As String = "A1"
Dim Fin As Range, I As Long, J As Long, Col As Integer
Dim ModeCalcul As Long
With Application
ModeCalcul = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Col = Range(Cell_Depart).Column
Set Fin = Range(Cell_Depart).End(xlDown)(2)
On Error Resume Next
Do
I = J + 1
J = Range(Cells(I, 1), Fin).ColumnDifferences(Cells(I, 1))(0).Row
If J > I Then Range(Cells(I + 1, 1), Cells(J, 1)).ClearContents
Loop Until Err
Application.Calculation = ModeCalcul
End Sub