Prendre une partie d'un chiffre

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=NAVY]Dim[/COLOR] L [COLOR=NAVY]As Long
    For[/COLOR] L = 2 [COLOR=NAVY]To[/COLOR] Cells(Application.Rows.Count, 1).[COLOR=NAVY]End[/COLOR](xlUp).Row
        Cells(L, 1).Value = Val(Mid(Cells(L, 1).Value, 4))
    [COLOR=NAVY]Next[/COLOR] L
[COLOR=NAVY]End Sub[/COLOR]

Sub extract_sur_feuille()
Dim s As String
Dim s1 As String
Dim i As Long
Dim pos1 as Long
For i = [A65536].End(xlUp).Row To 6 Step -1
s = Cells(i, 1).Text
s1 = Mid(s, InStr(1, s, "-") + 1)
pos1 = InStr(1, s1, "-")
Cells(i, 1) = Left(s1, pos1 - 1)
Next i
End Sub