Autres Extraire les données d'une cellule APRES le signe =>

Function Separer$(t$, ordre As Byte)
Dim i%, flag As Boolean
If ordre = 1 Then
    t = vbLf & t
    For i = 1 To Len(t)
        If Mid(t, i, 1) = vbLf Then flag = True
        If Mid(t, i, 1) = "=" Then flag = False
        If flag Then Separer = Separer & Mid(t, i, 1)
    Next
    Separer = Trim(Mid(Separer, 2))
Else
    For i = 1 To Len(t)
        If Mid(t, i, 1) = "=" Then flag = True: i = i + 2
        If flag Then Separer = Separer & Mid(t, i, 1)
        If Mid(t, i, 1) = vbLf Then flag = False
    Next
    Separer = Trim(Separer)
End If
End Function

Function Separer$(t$, ordre As Byte)
Dim i%, flag As Boolean
t = Application.Trim(t) 'SUPPRESPACE
If ordre = 1 Then
    t = vbLf & t
    For i = 1 To Len(t)
        If Mid(t, i, 1) = vbLf Then flag = True
        If Mid(t, i, 1) = "=" Then flag = False
        If flag Then Separer = Separer & Mid(t, i, 1)
    Next
    Separer = Trim(Mid(Separer, 2))
Else
    For i = 1 To Len(t)
        If Mid(t, i, 1) = "=" Then flag = True: i = i + 2 - (Mid(t, i + 2, 1) = " ")
        If flag Then Separer = Separer & Mid(t, i, 1)
        If Mid(t, i, 1) = vbLf Then flag = False
    Next
End If
End Function