D
Daniel
Guest
je te remercie pour
Public Sub vev()
Dim c As Range
For Each c In Range('l7:l' & Range('l65536').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
'etc.....
Case Else: c.Offset(0, 1) = 0
End Select
Next c
End Sub
Public Sub vev()
Dim c As Range
For Each c In Range('l7:l' & Range('l65536').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
'etc.....
Case Else: c.Offset(0, 1) = 0
End Select
Next c
End Sub