[PascalXLD]

Bonjour

Modifies ces lignes ( j'ai pas tester)

Lig = Range('A65536').End(xlUp).Row
ReDim Tableau(Lig)
For Each Val In Range('A1:A' & Lig)
Tableau(Val.Row - 1) = Val
Next Val

par

Lig = Range('C65536').End(xlUp).Row-3
ReDim Tableau(Lig)
For Each Val In Range('C4:C' & Lig)
Tableau(Val.Row - 1) = Val
Next Va

et

Cells(i, 1) = Tableau(Aleat - 1)

par

Cells(i, 1) = Tableau(Aleat - 1)l