Function Element(x As Range, n As Long, q As Long)
Dim Nlig&, i&, y$, elem
Element = vbNullString
Nlig = (Len(x) - Len(Replace(x, "ENVOIS POIDS", ""))) / Len("ENVOIS POIDS")
If n >= 1 And n <= Nlig And q >= 1 And q <= 4 Then
y = Replace(x, "ENVOIS POIDS", "", , n - 1): y = Application.Trim(y)
i = InStr(1, y, " ENVOIS POIDS ", vbTextCompare) + Len(" ENVOIS POIDS ")
y = Mid(y, i): elem = Split(y)
i = 0: y = ""
Do While Not IsNumeric(elem(i)) And i <= UBound(elem)
y = y & " " & elem(i): i = i + 1
Loop
If q = 1 Then
Element = Application.Trim(y)
Else
If i + q - 2 <= UBound(elem) Then Element = CDbl(elem(i + q - 2))
End If
End If
End Function