Function Mots(ByVal Src As String, ByVal Pos As Long, Optional ByVal Nb As Long = 1) As String
Dim Te() As String, Ts() As String, C As Long
Te = Split(Src)
ReDim Ts(1 To Nb)
For C = 1 To Nb: Ts(C) = Te(Pos + C - 2): Next C
Mots = Join(Ts)
End Function