XL 2010 Mes macro ne fonctionnent plus normalement en xl 2010

Bonjour à tous!
Je reviens avec un nouveau problème.
J'ai un fichier contenant plusieurs macro qui fonctionnaient très sur xl 2007, quand je vais sur xl 2010 j'ai des erreurs (Erreur d'exécution 40036: erreur définie par l'application où l'objet.

Private Sub UserForm_Initialize()

Application.ScreenUpdating = False
Sheets("Base de données").Protect "isalyd", userinterfaceonly:=True
Sheets("Se connecter").Protect "isalyd", userinterfaceonly:=True
Sheets("Facture Lunettes").Protect "isalyd", userinterfaceonly:=True
Sheets("Historique des ventes").Protect "isalyd", userinterfaceonly:=True 'La ligne où j'ai l'erreur l'erreur.
Sheets("Facture prestations médicales").Protect "isalyd", userinterfaceonly:=True
Sheets("Historique prestation médicale").Protect "isalyd", userinterfaceonly:=True
Sheets("Reçu").Protect "isalyd", userinterfaceonly:=True
Sheets("Historique reçu").Protect "isalyd", userinterfaceonly:=True
Sheets("Facture proforma").Protect "isalyd", userinterfaceonly:=True
Sheets("Historique Factures Pro").Protect "isalyd", userinterfaceonly:=True
Sheets("Inventaire de montures").Protect "isalyd", userinterfaceonly:=True
Sheets("Anniversaires").Protect "isalyd", userinterfaceonly:=True
Sheets("Bon de commande").Protect "isalyd", userinterfaceonly:=True
Sheets("Historique de commandes").Protect "isalyd", userinterfaceonly:=True
Sheets("Filtres").Protect "isalyd", userinterfaceonly:=True
Sheets("Listes").Protect "isalyd", userinterfaceonly:=True
Sheets("Tarifaire").Protect "isalyd", userinterfaceonly:=True
Sheets("Paramétrage").Protect "isalyd", userinterfaceonly:=True