Suprimer ligne

Re : Suprimer ligne

Bonjour JM
je doit supprimer sur les deux colognes A et B à la fois
merci

Re : Suprimer ligne

J Marcel
J'ai trouvé ça
Sub supprDoublons()
'suppression des doublons dans la colonne A
Range("A2:A526").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
While ActiveCell <> ""
If ActiveCell = donnee1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Et ça fonctionne bien