Sub a()
Call AfficheEnHautAGauche([G107])
End Sub
Sub AfficheEnHautAGauche(Cellule As Range)
ActiveWindow.ScrollColumn = Cellule.Column
ActiveWindow.ScrollRow = Cellule.Row
End Sub
Sub Cadrage()
Application.GoTo ActiveCell, True
End Sub