SpinButton et Range

Bonjour
Peut être pouvez vous m'aider à résoudre un petit problème avec l'utilisation d'un spinButton que j'ai placé dans une feuille Excel. L'idée c'est que quand je click d'un côté ou de l'autre, ça appelle des valeurs que je souhaite tracer.

La partie tracée va bien, c'est à la rencontre du 1er Range que ça donne une erreur 1004.
Pourtant quand ce code est utilisé sans le spinButton il fonctionne correctement.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Dim LectureTabShown As String, LectureTabFirstS As String, LectureTabShown_Next As String, LectureTabName_Next As String
Dim liShown As Single
Dim oGraph As Excel.ChartObject, oSh As Excel.Worksheet
 
Private Sub ISIN_PLANCHESpinButton_SpinUp() 'vers la droite (montée dans la liste des BOARD)
Application.ScreenUpdating = False
 
LectureTabShown = Worksheets("PLANCHE").Cells(1, 2).Value
For liShown = 8 + 1 To 47 Step 1
Select Case LectureTabShown
    Case Is = Worksheets("BOARD").Cells(liShown, 1).Value
    LectureTabShown_Next = Worksheets("BOARD").Cells(liShown - 1, 1).Value
    LectureTabName_Next = Worksheets("BOARD").Cells(liShown - 1, 2).Value
 
'**********************************
'*** tracé de la planche suivante *
'**********************************
'copie des colonnes de l'ensemble
Worksheets(LectureTabShown_Next & "C").Activate
Range("L:L,O:R,T:T,V:V,Z:Z,AB:AB").Select
Selection.Copy
 
Sheets("INPUT").Select
Columns("A:I").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
'SUITE POUR LE TRACÉ QUI VA BIEN
 
End Select
Next liShown
End Sub