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