Option Compare Text
Function ExtSpec(Cell) As Variant
Dim T As Variant
Select Case True
Case Cell Like "not*"
T = Split(Cell): ExtSpec = T(1) & " " & T(2)
Case Cell Like "*cmd*"
T = Split(Cell): ExtSpec = T(2)
Case Cell Like "export 5*"
T = Split(Cell, "_")
ExtSpec = Mid(T(1), 9)
Case Cell Like "export natif*"
T = Split(Cell, "_")
ExtSpec = Mid(T(2), 9)
Case Cell Like "creation*/*"
T = Split(Cell, "/"): T = Split(T(0), ":")
ExtSpec = T(1)
Case Cell Like "creation*"
T = Split(Cell): ExtSpec = T(2)
End Select
ExtSpec = Trim(ExtSpec)
End Function