Besoin d'info en vba.

Bonjour,

Quelqu'un pourrait-il m'expliquer pourquoi en VBA excel 2003:

- quand j'écris le code en activant la ligne 6 et désactivant la ligne 7, cela fonctionne.

- quand je désactive la ligne 6 pour mettre la ligne 7 en service cela ne marche plus, range("D3") prennent bien leurs valeurs, mais zon est égal à "nothing" ?

1 - Dim Val As Variant
2 - Dim zon As Range
3 - Dim cellule As Range
4 - Dim A_L As Worksheet

5 - Set A_L = Sheets("A_LIVRER")

6 - Set zon = A_L.Range("D3:D65536")

7 - 'Set zon = A_L.Range("D3" & Range("D3").End(xlDown))

8 - Val = Userform1.LblN°Chantier.Caption

9 - For Each cellule In zon
10 - If cellule.Text = Val Then
11 - Userform1.LblDebite.Caption = CStr(cellule.Offset(0, 10))
12 - End If
13 - Next cellule

Cordialement

Merci à vous tous, qui nous permettent de progresser.

jen_peplu

PS : Paf merci pour tes précisions dans le dernier post, dans lequel je t'ai répondu.