Private Function Formule(T As String) As String
Dim Fml As String
If T Like "*mDF(*" Then
Fml = Mid(T, InStr(1, T, "mDF(") + 4)
Fml = Left(Fml, InStr(1, Fml, ";") - 1)
If Not Evaluate(Fml) Then Exit Function
Formule = Mid(T, InStr(1, T, ";") + 1)
Formule = Left(Formule, Len(Formule) - 2)
End If
End Function