Sub supprimeDoublons()
Dim i as integer
for i = 1 to 13
cells(2,i).Select
ActiveCell.CurrentRegion.Sort Key1:=cells(2,i), Order1:=xlAscending, Header:=xlYes
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
cells(2,i+1).Select
next i
End Sub