Deus petites questions....

Range("A1:A5").Value = Application.Transpose(Array("lundi", "Mardi", "Mercredi", "Jeudi", "vendredi"))

    Selection.Formula = "=INT(RAND()*10)"
    For Each Ar In Selection.Areas
        Ar.Value = Ar.Value
    Next

Sub étirer()
Range("A1").Value = "Lundi"
Range("A1").AutoFill Destination:=Range("A1:A5")
End Sub

Sub Nbaléatoire()

'Pour les nombres aléatoires 65536 lignes en environ 1sec

Dim tabl()
Dim i As Long

tabl = Range("A1:A65536").Value 'Ma plage
    
    For i = LBound(tabl()) To UBound(tabl())
        
        tabl(i, 1) = CInt((Rnd() * 10))
    
    Next i
    
Range("A1:A65536").Value = tabl 'Ma plage
    
End Sub