Sub HiderZ()
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
End Sub
Sub ShowerZ()
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayGridlines = True
End Sub
Sub DonneesZ()
With Application
.Top = 50
.Left = 400
.Width = 375
.Height = 693
End With
End Sub
Sub HydrauZ()
With Application
.Top = 50
.Left = 400
.Width = 549
.Height = 626
End With
End Sub