Comment boucler InputBox

For i = 1 to 4
   Range ("A" & i) = InputBox(prompt:="Entrez " & Range("Z" & i), Title:="New")
Next i

Dim message(4) As String
Dim titre(4) As String
message(1) = "Entrez l'adresse"
titre(1) = "New"
message(2) = "Entrez l'appartement"
titre(2) = "New"
message(3) = "Entrez la rue"
titre(4) = "New"
message(4) = "Entrez la note"
titre(2) = "New"

For i = 1 To 4
Range("A" & i) = InputBox(message(i), titre(i))
Next i
End Sub

For i = 1 To 4
   Range("A" & i) = InputBox([COLOR="Blue"]prompt:=[/COLOR]"Entrez " & Range("Z" & i), [COLOR="Blue"]Title:=[/COLOR]"New")
Next i

Sub test()

For i = 1 To 4
   Range("A" & i) = InputBox(prompt:="Entrez " & Range("Z" & i), Title:="New")
Next i

End Sub

Sub test()

For i = 1 To 4
   Range("A" & i) = InputBox("Entrez " & Range("Z" & i), "New")
Next i

End Sub

a = 1
b = 1
For Each I In Array("-1", "0", "1", "2", "6")
        For Each J In Array("Msg1", "Msg2", "Msg3", "Msg4", "Msg5")
		If a <> b Then b = b + 1: GoTo suiv
		ActiveCell.Offset(0, I) = InputBox(J, Title:="New")
		b = 1
		Exit For
suiv:
        Next J  
a = a + 1
Next I