Compatibilité 2010

Sois plus précis : quel genre de bugs ?
Car normalement il n'y a pas de problème de compatibilité ...

bonjour
ce sont surtout 2 macros qui bloquent

Private Sub Workbook_Open()
For Each Sh In Sheets
Sh.Protect "toto"
Next Sh
Feuil19.CommandButton2.Visible = False
Feuil19.CommandButton1.Visible = True
End Sub
il bloque sur celle la des l'ouverture c'est un bouton de protection des feuilles du classeur il me souligne Sh en 2eme ligne

puis après celle ci

Private Sub Calendar1_Click()
ActiveCell = Calendar1
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim OK As Boolean
' si la sélection sur la feuille change (target est la référence de la sélection)
OK = Not Intersect(Target, Union([A9:B27], [E9:F27], [I9:J27], [M9:N27], [Q9:R27], [U9:V27], [Y9:Z27], [AC9:AD27], [AG9:AH27], [AK9:AL27], [AO9:AP27], [AS9:AT29], [AW9:AX27], [BA9:BB27], [BE9:BF27], [BI6:BJ27], [BM9:BN27], [BQ9:BR27], [BU9:BV27], [BY9:BZ27], [CC9:CD27], [CG9:CH27], [CK9:CL27], [CO9:CP27], [CS9:CT27], [CW9:CX27], [DA9:DB27], [DE9:DF27], [DI9:DJ27], [DM9:DN27])) Is Nothing
' si plus de 30 plages
OK = OK Or Not Intersect(Target, Union([DQ9:DR27], [DU9:DV27], [DY9:DZ27], [EC9:ED27], [EG9:EH27], [EK9:EL27])) Is Nothing
OK = OK And Target.Cells.Count = 1
'
If Not OK Then
'alors on cache le calendrier
Calendar1.Visible = False
Exit Sub
Else
'sinon
Calendar1.Top = Target.Offset(1, 0).Top + 20
' aligner le calendrier avec le haut de la cellule en dessous
Calendar1.Left = Target.Left + 1
' l'aligner à gauche de la cellule
'Calendar1.LinkedCell = Target.Address
' mettre la cellule liée au contrôle sur la cellule sélectionnée
If IsDate(Target.Value) Then
'si la cellule sélectionnée contient une date
Calendar1.Value = Target.Value
' la récupérer
Else
' sinon mettre la date du jour
Calendar1.Value = Date
End If
Calendar1.Visible = True
'afficher le calendrier
End If
End Sub

il bloque et me souligne [A9:B27] et marque en alerte d'erreur
"erreur de compilation projet ou bibliothèque introuvable"
cet ordinateur ou ça marche bien est sous Xp 32bits excel2007
le 2EME est windows7 64bits Excel 2010
merci
a bientot

Non, il n'y a pas d'outil.