Modif code

[manuBX]

Bonjour à tous

Peut on m 'aider à modifier ce code afin que le tri se fasse , supprime les doublons mais plutot qu effacer la ligne cela efface les cellule de A à F
Merci d'avance

Dim i As Integer
'EFFECTUE UN TRI croissant SANS DOUBLON
[A6].Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess
For i = [A65000].End(xlUp).Row To 2 Step -1


If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete
Next i

 

[vgendron]

Re : Modif code

Hello

remplace

If Cells(i, 1) = Cells(i - 1, 1) Then Rows(i).Delete

par

If Cells(i, 1) = Cells(i - 1, 1) Then range(Cells(i,1),Cells(i,6)).clear

 

[manuBX]

Re : Modif code

Merci beaucoup de ce coup de pouce
A+