bonjour Joco7915,
Sub Tirage()
Dim N, aOut, aA, i
N = Range("C3").Value 'nombre
aA = Evaluate(Replace("transpose(row(offset(a1,,,#,)))", "#", N)) 'séquence de 1 à N
'aA = WorksheetFunction.Sequence(1, N) 'n'existe pas encore en 2019 ????
ReDim aOut(1 To WorksheetFunction.RoundUp(N / 4, 0), 1 To 4) 'matrice de x lignes * 4 colonnes
For i = 1 To N
r = Application.RandBetween(i, N)
x = aA(r)
aA(r) = aA(i)
aA(i) = x
aOut((i - 1) \ 4 + 1, ((i - 1) Mod 4) + 1) = "Nom_" & Format(x, "00")
Next
Range("F4").Resize(UBound(aOut), UBound(aOut, 2)).Value = aOut
End Sub