Mise en place d'un bouton par l'intermédiaire d'un code VBA

Claude,

C'est génial !

Selon tes indications, j'ai transformé ton code en

Application.Goto Reference:=Range("A" & Rows.Count).End(xlUp), Scroll:=True

et ça fonctionne à merveille. Merci infiniment.

Mais je me rends compte maintenant que ce serait mieux que j'arrive à un endroit plus précis. Je m'explique :

Dans la colonne I, à partir de la ligne 11, il n'y a normalement rien pour les 4 ou 500 premières lignes (quantité de lignes à chaque fois variable).

Puis, en fin de liste, il y a 10, 20 ou 30 cas qui doivent être traités manuellement par l'utilisateur. Ces cas ont un texte "0.00" dans la colonne I.

Serait-il alors possible de rechercher la première cellule non vide depuis I11 plutôt que la dernière ligne ?

En espèrant que ça ne vous empêche pas de dormir !

re,

essaye :

[i11].Activate
Selection.End(xlDown).Name = "top"
Application.Goto Reference:=Range("top"), Scroll:=True

Claude.

Alors cette fois c'est parfait ! Exactement ce que je désirais.

Merci infiniment Claude et tout les autres pour votre aide.

Meileures salutations.