Sub MélangerFichiers()
Dim DL%: Application.ScreenUpdating = False
[F1] = "Alea"
DL = Cells(Cells.Rows.Count, "G").End(xlUp).Row
Range("F2:F" & DL).Formula = "=RAND()"
Range("F:H").Resize(DL).Sort key1:=Range("F1"), order1:=xlAscending, Header:=xlYes
[F:F].ClearContents
End Sub