Sub Nom_aléatoire()
'
' Nom_aléatoire Macro
'
'
Range("C2:C366,E2:E366,G2:G366,I2:I366").Select
Selection.FormulaR1C1 = "=INDEX(BDD!R2C1:R439C1,INT(RAND()*365)+1)"
Range("C2:I366").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub