Hello,
Comme ceci :
prob = InputBox("JSDAT")
ActiveCell.Value = "jsdat-" & prob
ActiveCell.Offset(, 1).Select
CA = InputBox("CA")
ActiveCell.Value = CA
ActiveCell.Offset(, 1).Select
Ou
prob = InputBox("JSDAT")
ActiveCell.Value = "jsdat-" & prob
CA = InputBox("CA")
ActiveCell.Offset(, 1) = CA
TOTO = InputBox("TOTO")
ActiveCell.Offset(, 2) = TOTO