Function Scinde(Chaine, T)
N = Len(Chaine)
For i = N - 1 To 1 Step -1
If Mid(Chaine, i, 2) = "de" Or Mid(Chaine, i, 2) = "d'" Then
If T = 1 Then
Scinde = Mid(Chaine, 1, i - 2)
Else
Scinde = Mid(Chaine, i + 3)
End If
Exit Function
End If
Next i
End Function