Erreur macro

bonjour,

j'ai développé une fichier excel avec macro pour un ami.

chez moi pas de problème avec un bouton mais lui obtient un message d'erreur:

run time error '9'

subscript out of range

voici le code qui pose problème:

Sub Bouton001()
'
' Bouton 1
'
Dim Variable As Integer
Sheets("Données").Select
Variable = Range("b1").Value
Range("b" & Variable).Select
    ActiveCell.FormulaR1C1 = "1"
    ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("PREDICTIONS").Select
End Sub

en pièce jointe la version de son office.

moi je suis en 2011

merci pour votre aide.

Daniel

c'est bon j'ai trouvé

le "é" qui fou la merde