Private Sub Bouton_marches_Click()
Dim haut As Single, gauche As Single
'Conserver la position du bouton
With Bouton_marches
haut = .Top
gauche = .Left
End With
Marches_usf.Show
mdlPivot.PivotUpdate
'Rétablir sa position initiale
With Bouton_marches
.Top = haut
.Left= gauche
End With
End Sub