Private Sub CommandButton1_Click()
VAR_NBR_AUTOMATE = Sheets("MENU").Range("A65536").End(xlUp).Row
VAR_HAUTEUR_TABLEAU = 12 * VAR_NBR_AUTOMATE & "#"
ActiveSheet.Shapes("Picture 7").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = VAR_HAUTEUR_TABLEAU
Selection.ShapeRange.Width = 9.75
Selection.ShapeRange.Rotation = 0#
End Sub