Sub supprimer_ligne()
Dim i As Long
For i = [AA65000].End(xlUp).Row To 2 Step -1
If Cells(i, "aa") = "a supprimer" Then
If MsgBox("Voulez-vous supprimer la note numéro " & Cells(i, "ab") & " de " & _
Cells(i, "ad") & " ?", vbYesNo, "Attention") = vbYes Then _
Rows(i).Delete
End If
Next i
End Sub