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