Function Extrait(Cel)
Dim Signe, Deb As Byte, Fin As Byte
Signe = Array(",", ".", ":", ";")
Deb = InStr(1, Cel, "Model:", 1)
Deb = Deb + 6
For i = LBound(Signe) To UBound(Signe)
Fin = InStr(Deb, Cel, Signe(i))
If Fin > 0 Then Exit For
Next
Extrait = Mid(Cel, Deb, Fin - Deb)
End Function