un bouton pour deux actions

[MARION]

Bonjour le forum.
un petit code qui me pose des problèmes.
j'ai un bouton qui me positionne dans la derniere cellule vide de la colonne 5, voici le code :

Private Sub CommandButton1_Click()
Columns(5).Find("*", , , , , xlPrevious).Offset(1, 0).Select
End Sub
je voudrais cliqueR une fois sur le bouton et aller à la derniere cellule et en cliquant une deuxieme fois revenir en A6.
Avez vous une solution?
Merci
A+ M

 

[Arnaud]

salut,

tient voila un exemple.

 

[MARION]

Bonjour et merci arnaud. je les bidoullé un petit peut peu et çà marche.
Gros bisous
A+ M