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