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 = 'A5199'
Range('B52').Select
Range('A5181').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 ('A3969')

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