Choix message box "NON"

Sub Macro16() ' Supprimer ligne de archives
Sheets("Données").Unprotect
If MsgBox("Voulez vous supprimer cette saisie ?", vbQuestion + vbYesNo, "") = VbNo Then Exit Sub

Dim ligne As Long
ligne = ActiveCell.Row
Range("A" & ligne & ":Z" & ligne).Delete

End If

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

MsgBox "Voulez vous supprimer cette saisie ?", vbQuestion + vbYesNo, ""
[COLOR="Red"]If vbNo = True Then Exit Sub[/COLOR]
If vbYes Then

If vbNo = true Then
Exit Sub
End If