For the section move metod:
My first click make this code :
Code:
Private Sub Autre_Click()
Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=6, Name:=""
End Sub
Next click this code :
Code:
Private Sub PhyRetour_Click()
Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=""
End Sub
For the index table metod :
My first click make this code :
Code:
Private Sub PsyRetour_Click()
DeclarationVariable
ThisDocument.Tables(EntetePageI).Cell(1, 2).Select
Selection.Move
End Sub
Next click this code :
Code:
Private Sub Hebergement_Click()
DeclarationVariable
ThisDocument.Tables(PGAHebergement).Cell(7, 1).Select
Selection.Move
End Sub
With this two metod, after the second click the button always go "edition" mode