Sub Entre_Données()
For i = 1 To 10
Valeur1 = InputBox("Valeur?")
ActiveCell = Valeur1
Valeur2 = InputBox("Valeur?")
ActiveCell.Offset(0, 1) = Valeur2
Valeur3 = InputBox("Valeur?")
ActiveCell.Offset(0, 2) = Valeur3
ActiveCell.Offset(1, 0).Select
Next
End Sub