Karim

Bonjour,

Voici comment j'ai fait, c'est tt simple en fait!:

----------
10









125
-----------

Sub TEST()

Dim A As Range, c As Range
Dim B As Integer

Set A = Range("A1")
B = 1
While A.Offset(B) = ""

B = B + 1
Set c = A.Offset(B)

Wend
MsgBox c
End Sub

Fichiers attachés

test.zip (6,2 Ko, 2 affichages)