Sub Rectangle1_Cliquer()
Sheets("cma").Select
'pour placer la cellule A15 en haut à gauche Ligne 15, colonne 1
Onglet = ActiveSheet.Name
MakeTopLeft ThisWorkbook.Sheets(Onglet).Cells(15, 1)
End Sub
Sub MakeTopLeft(R As Range)
R.Parent.Activate
ActiveWindow.ScrollRow = R.Row
ActiveWindow.ScrollColumn = R.Column
End Sub