RÉCUPERE UNE CHAINE DE CARACTERES DANS UNE AUTRE (À DROITE)

' ----------------------------------------------------------------------
' Renvoie la chaîne de caractères situées après le premier séparateur :
'
Function sGetRightChamp(ByVal ligne As String, ByVal leSeparateur As String, Optional ByVal Value As Variant) As String
    Dim nbCar As Integer, champ As String, lg As Integer
    
    
    champ = ligne
    lg = Len(leSeparateur)
    
    If Len(champ) > 0 And lg > 0 Then
        ' Il faut prendre en compte la longueur du séparateur et le positionnement
        ' du séparateur détecté :
        If lg = 1 Then lg = 0
        If lg > 1 Then lg = lg - 1
        
        ' Récupère une chaine de caractère à droite du séparateur.
        nbCar = InStr(champ, leSeparateur)              ' Nombre de caractere(s) a récupérer.
        
        If nbCar > 0 Then
            champ = Right(champ, Len(champ) - (nbCar + lg))     ' Mise à jour de la ligne sans le 1er champ.
        Else
            If IsMissing(Value) = False Then
                If CBool(Value) = True Then
                    champ = vbNullString
                End If
            End If
        End If
    End If
    
    sGetRightChamp = champ
End Function