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