Function DeplacerNombre(celluleSource As Range) As String
Dim tabStr() As String, memNum As String, i As Integer
DeplacerNombre = ""
tabStr = Split(celluleSource.Text)
For i = LBound(tabStr) To UBound(tabStr)
If IsNumeric(tabStr(i)) Then
memNum = tabStr(i)
Else
DeplacerNombre = DeplacerNombre & IIf(DeplacerNombre = "", "", " ") & tabStr(i)
End If
Next i
DeplacerNombre = DeplacerNombre & IIf(DeplacerNombre = "", "", " ") & memNum
End Function