explication sur cette macro

[Daniel]

Bonjour à toutes et tous,


Public Sub vev()
Dim c As Range

For Each c In Range('l7:l' & Range('l65500').End(xlUp).Row)
Select Case c.Value
Case 11 To 25: c.Offset(0, 1) = 8
Case 26 To 50: c.Offset(0, 1) = 10
Case 51 To 90: c.Offset(0, 1) = 13
Case 91 To 150: c.Offset(0, 1) = 15
Case 151 To 280: c.Offset(0, 1) = 20
Case 281 To 500: c.Offset(0, 1) = 30
Case 501 To 800: c.Offset(0, 1) = 40
Case 801 To 1200: c.Offset(0, 1) = 50
Case 1201 To 3200: c.Offset(0, 1) = 80

Case Else: c.Offset(0, 1) = 0
End Select
Next c
End Sub

je voudrais simplement changé la rangée ou se trouve les données.
j'ai essayé ceci mais ,j'ai unmessage d'erreur quand je le lance :
For Each c In Range('n7:n' & Range('l65500').End(xlUp).Row)

Merci d'avance
[file name=T&a test1_20050426115620.zip size=6257]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/T&a test1_20050426115620.zip[/file]

 

[Denis]

Bonjour Daniel et le Forum
il faut également que tu changes Range('I65500') par Range('N65500')
Bon courage et à+
Denis

 

[Daniel]

Merci Denis,

For Each c In Range('n7:n' & Range('l65500').End(xlUp).Row)

je prenais le ('l65500') pour un('165500')

Je suis vraiment rop nul