RECUPERE UNE CHAINE ET RENVOI UNE CHAINE SANS CELLE SUPPRIMÉE

Function sRecupItem(ByRef chaine As String, ByVal sep As String) As String
    Dim pos As Integer, item As String
    
    
    On Error GoTo ErrRecupItem
    
    sRecupItem = vbNullString
    If Len(Trim(chaine)) <= 0 Then Exit Function
    
    ' Récupération de l'item :
    pos = InStr(chaine, sep)
    If pos > 0 Then
        item = Left(chaine, pos - 1)
        chaine = Right(chaine, Len(chaine) - (Len(item) + Len(sep)))
    Else
        item = chaine
        chaine = vbNullString
    End If
    
    If Left(item, 1) = """" Then item = Right(item, Len(item) - 1)
    If Right(item, 1) = """" Then item = Left(item, Len(item) - 1)
    
    sRecupItem = item

ErrRecupItem:
End Function