Commande before_save

Bonjour,



J'ai créé la formule suivante et je ne comprend pas pourquoi elle ne fonctionne pas.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("info").Range("k1") = 0 Then
Else
Cancel = True
MsgBox "Le nombre de lignes ne balance pas !"
End If
End Sub

Merci de votre temps !