Bonjour
La cellule K3 ne correspond elle pas aux nombre de colonnes pour l'affichage ?
Si ce n'est pas le cas remplaces dans le code la partie surlignée
Sub tirage(Lig As Integer)
ligne = Lig
colonne = 3
Set liste = New Collection
While liste.Count < Range("k1")
Randomize
num = Int((Range("k1") * Rnd) + 2)
On Error Resume Next
liste.Add num, CStr(num)
On Error GoTo 0
Wend
For n = 1 To liste.Count
Cells(ligne + (n - 1) \ 4, colonne + (n - 1) Mod 4) = Range("A" & liste(n))
Next n
End Sub