Private Sub SD()
MaCellule = "A2"
Range(MaCellule).Select
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
Donnee1 = ActiveCell
Ligne1 = ActiveCell.Row
Ligne2 = ActiveCell.Offset(1, 0).Row
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Nb1 = WorksheetFunction.CountA(Worksheets("BDD").Rows(Ligne1))
Nb2 = WorksheetFunction.CountA(Worksheets("BDD").Rows(Ligne2))
If ActiveCell = Donnee1 and Nb1<>Nb2 Then
ActiveCell.Offset(-1, 0).Select
ActiveCell.EntireRow.Delete
Donnee1 = ActiveCell
Ligne1 = ActiveCell.Row
Ligne2 = ActiveCell.Offset(1, 0).Row
End If
Wend
End Sub