Sub A_QuestionVague_ReponseFloue()
Dim Cel_1 As Range, Cel_2 As Range, Cel_3 As Range
Randomize 1600
Set Cel_1 = Cells(1).Offset(Application.RandBetween(1, 5)): Cel_1 = Application.UserName
Set Cel_2 = Cells(1).Offset(Application.RandBetween(7, 13)): Cel_2 = Date
Set Cel_3 = Cells(1).Offset(Application.RandBetween(15, 21)): Cel_3 = Rnd
MsgBox "Poursuivre le test, boss?", vbExclamation, "Test"
Union(Cel_1, Cel_2, Cel_3).Copy Sheets.Add.Cells(1)
End Sub