Recherche d'une cellule

Bonjour à tous,

Question : J'ai besoin de votre

On se trouve en colonne G..suite à un impport de données, les donnée s'arrête jamais au même endroit..cela peut être G52, G420.....

J'ai besoin de me déplacer mon curseur à gauche de la dernière celulle active de la colonne G

exemple 1:

Les données s'arrête en G71

J'ai besoin de déplacer automatiquement mon curseur en F71

exemple 2:

Les données s'arrête en G49

J'ai besoin de déplacer automatiquement mon curseur en F49

Merci de votre aide

a+++

Bonjour,

Sub Curseur()
Dim Lg%
    Lg = Range("g65536").End(xlUp).Row
    Cells(Lg, "f").Activate
End Sub

Bonne journée

Claude

Un grand merci claude, nickel