Sub Test()
Dim x$, tablo#(1 To 3), s, flag As Boolean, i 'dimension de tablo à adapter (base 1)
Do
x = InputBox("Entrez " & UBound(tablo) & " nombres séparés par des espaces" & vbLf & "et compris entre 1 et 100 :", , x)
If x = "" Then Exit Sub
s = Split(x)
flag = False
If UBound(s) = UBound(tablo) - 1 Then
For i = 1 To UBound(tablo)
tablo(i) = Val(Replace(s(i - 1), ",", "."))
If tablo(i) < 1 Or tablo(i) > 100 Then flag = True: Exit For
Next
Else
flag = True
End If
Loop While flag
'---restitution---
With [A1].Resize(, UBound(tablo))
.Value = tablo
MsgBox "Bravo, les " & UBound(tablo) & " valeurs sont restituées en " & .Address(0, 0)
End With
End Sub