Merci pour vos réponses.
J'ai changé sur votre macro la colonne de fin DG35 au lieu de AI35.
La macro ne fonctionne plus avec ce changement.
Dois-je modifier autre chose?
Sub Aleatoire()
Dim pl As Range, n(1 To 2065), tabl() As Long, alea As Long
Dim i As Long, j As Long, k As Long, tmp...