Pb utilisation fonction countblank avec VBA

Bonjour à tous,
J'ai besoin une fois plus de votre aide précieuse. J'ai souhaite trouver un code qui me permette de vérifier si une plage de donnée discontinue, que j'ai nommée "data", contient des cellules vides. Et si c'est le cas, je souhaite qu'un message d'alerte s'affiche.

J'ai donc rédiger les instructions ci-dessous. Or, lorsque je click sur le bouton auquel j'ai associé ces instructions, VBA me renvoie le message d'erreur suivant:
"Run Time Error:1004", Unable to get the countblank property of worksheet function."
Ce qui me surprend, c'est que j'ai déjà utiliser un code identique pour réaliser la même action, et je n'ai eu acun problème.


Mon code VBA:

Private Sub CommandButton2_Click()
Dim c as Integer

c = WorksheetFunction.CountBlank(Range("data"))
If c <> 0 ThenMsgBox " Please fill all the boxes", vbOKOnly + vbExclamation, "Error"
End If
Exit Sub


Quel qu'un saurait-il m'expliquer ce que signifie cette erreur? Et comment la corriger?


Merci d'avance,

Kayna