Pb avec affichage d'écran

[Eric D]

Bonjour le forum,

je souhaiterais tout bêtement afficher une plage de ma feuille suivant la valeur de x:

Private Sub touchereste1_mousedown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If X 45 And X < 88.5 Then
Worksheets('mafeuil').ScrollArea = 'A51😛99'
Range('B52').Select
Range('A51😛81').Show
End If

End Sub

dans le 1er cas, cela à l'air de fonctionner, mais pas dans le 2ème cas,la fenêtre visible est ('A39😛69')

d'où cela peut il provenir???
Merci pour vos suggestions.
Eric D