Sub Test2()
'
Dim X As String
Dim y As Long
For y = 1 To 65536 'à toi de mettre ta première et ta dernière ligne
X = InputBox("Quelle date ?")
X = Left(X, 2) & "/" & Mid(X, 3, 2) & "/" & Right(X, 4)
Range("D" & y) = CDate(X)
X = InputBox("Quel heure ?")
X = Left(X, 2) & ":" & Right(X, 2)
Range("E" & y) = CDate(X)
If MsgBox("Voulez-vous continuer ?", vbYesNo, "Suite") = vbNo Then Exit For
Next y
'
End Sub