Réponse acceptée !
Salut,

Une petite remarque pour commencer : Tu n'es pas dans le bon theme !... Pour Excel et plus generalement le VBA c'est ici :

--->  Thèmes / Visual Basic 6 / Langages dérivés / VBA /

Non non !!! ne reposte pas ailleurs on continu malgré tout avec celui-ci !

Ceci etant dit, en supposnt que la feuille soit feuil1:

Sub test()
    Dim Cellule As Range, MaPlage As Range, DerniereCellule As String
    'on recherche la derniere cellule
    DerniereCellule = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    Set MaPlage = Worksheets("Feuil1").Range("A1:" & DerniereCellule)
    For Each Cellule In MaPlage
        If Cellule.Value <> "" Then MsgBox Cellule.Value
    Next
End Sub