Propriété du combobox.list

Bonjour,

Je tente de développer une petite application pour moi mais je bute sur un problème.
je charge une combo box avec la propriété combobox.list qui fonctionne si des renseignements sont rentrés dans la colonne de la feuille qui sert à alimenter mon combobox. Par contre si je vide ma liste de la feuille, et que je veuille enregistrer un premier produit donc, j'obtiens une erreur. Comment faire pour vérifier si la liste est vide ou non et lancer l'operation de l'enregistrement.
J'ai essaye ceci :

Code:

---

1 2	sheets("Liste produits").Range("A1:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value = "" then msgbox"La liste est vide"...

---

Mais cela ne marche pas.
Merci pour un éclairage sur l'erreur que je commets