Function N_2_3(t$)
Dim i%, j%, a&(1 To 2), k%
t = Replace(t, " ", "") 'suppression des espaces nécessaire ?
t = "z" & t
For i = 3 To Len(t)
If Not IsNumeric(Mid(t, i, 1)) And Mid(t, i - 1, 3) Like "#?#" Then
For j = i - 2 To 1 Step -1
If Not IsNumeric(Mid(t, j, 1)) Then Exit For
Next j
a(1) = Mid(t, j + 1, i - j - 1)
For j = i + 2 To Len(t)
If Not IsNumeric(Mid(t, j, 1)) Then Exit For
Next j
a(2) = Mid(t, i + 1, j - i - 1)
If IsNumeric(Mid(t, j + 1, 1)) Then 'si 3 nombres successifs
a(1) = a(1) * a(2)
For k = j + 2 To Len(t)
If Not IsNumeric(Mid(t, k, 1)) Then Exit For
Next k
a(2) = Mid(t, j + 1, k - j - 1)
End If
Exit For
End If
Next i
N_2_3 = a 'matrice (vecteur ligne)
End Function