bonjour,
une proposition
Sub aargh()
For i = 1 To 10
Cells(i, 1).Value = Application.RandBetween(1, 50000)
Next i
End Sub
Mets ensuite les cellules au format date qui te convient. date tirée au hasard entre 1 et 50000. (1 pour 1/1/1900, 50000 pour 21/11/2036)
edit : je viens de voir ton 2ème message, j'en déduis que je n'ai rien compris à la demande.
ensuite que fait-on ?
ben ça dépend de ce que tu veux faire