Tant que sous vb pour excel! AIDEZ-moi!!!

Bonjour à tous!
J'ai une question vraiment simple et basique.
J'ai une liste de 60 cellules où à chaque fois, il n'y a qu'une cellule où il y a des infos dedans.
Par exmple, ma liste va de A1 à A60, et il n'y a que la A30 qui a des infos.
Je veux faire une macro pour retrouver à chaque fois la cellule où il y a des infos dedans.
Je pensais faire un : 
Tant que je n'ai rien dans la cellule, je descends d'une cellule
Jusqu'à ce que je trouve la bonne cellule!
Mettre le résultat de la cellule dans la cellule B1.

Merci de m'aider pour le code, j'ai tout oublié pour le code VB.

Vladsmice

Sub chercheElement()
Dim i As Long

    For i = 1 To 60
        Range("A" & i).Select
        If Trim$(Selection.Text) <> "" Then
            MsgBox Selection.Text
            Exit For
        End If
    Next i
   
   
End Sub



Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

Merci beaucoup, c'est nickel, ça fonctionne très bien!

Vladsmice

Par contre, comment pourrais-je mettre dans la macro, que je veux qu'il aille chercher le tableau sur ma feuille2?
je pensais à un truc comme : Range(" 'Feuille2'!A" & i).Select mais ça ne fonctionne pas.

Vladsmice

C'est bon, j'ai trouvé! Merci

Vladsmice