Zoom partie gauche

Bonjour,

J'ai besoin vos aides pour un code vba pour faire une zoom sur la partie extreme gauche d'une feuille excel :

Sub ZoomSurRange(ByVal objRange As Range)
    If objRange.Worksheet Is ActiveSheet Then
        objRange.Select
        ActiveWindow.Zoom = 55

    End If
End Sub

ZoomSurRange (ActiveSheet.Range("A1:B15"))

Et merci d'avance

Bonjour,

Sub ZoomSurRange(ByVal objRange As Range)
    If objRange.Worksheet Is ActiveSheet Then
        objRange.Select
        ActiveWindow.Zoom = True
    End If
End Sub