Zoom Automatique suivant le PC

[MarioBros]

Bonjour au forum,

Existe t- il une fonction ou autre pour zoomer automatiquement la zone .ScrollArea = 'A1:AF43' sur l`ecran. ???

Je voudrais que l`utilisateur qui a acces a la feuille en plein ecran dans excel puisse voir toute la ScrollArea que je lui ai autorisee !!??

For i = 1 To nbn - 2
Sheets(i).Visible = False
Next i
Sheets(nbn).Select
With Application
.DisplayFullScreen = True
.DisplayFormulaBar = False
.Calculation = xlManual
End With
With Sheets(nbn)
.EnableSelection = xlUnlockedCells
.ScrollArea = 'A1:AF43'
.Protect UserInterfaceOnly:=True
End With
Application.Calculation = xlAutomatic

Et si ce n`est pas possible, savez vous comment reglez le zoom en VBA ??

Merci d`avance pour vos reponses