Function TestSeuil(r As Range) As Boolean
If r(1, 3) Like "ACHETEUR*" Then
TestSeuil = Val(Mid(r(1), 9)) > Val(Mid(r(1, 3), 9))
ElseIf r(1, 3) Like "APPROB MAG*" Then
TestSeuil = Val(Mid(r(1), 11)) > Val(Mid(r(1, 3), 11))
ElseIf r(1, 3) Like "APPROB*" Then
TestSeuil = Val(Mid(r(1), 7)) > Val(Mid(r(1, 3), 7))
End If
End Function