Bonjour,
Voilà une macro qui génère une serie de chiffre de 1 à 12 (sans doublons) dans une plage de 3 x 4 comme demandé.
Après à toi d'adapter la plage ou tu veux que le tirage se fasse ou de faire une boucle pour générer plusieurs tirage à différents endroits en une seule fois.
Sub Aleatoire()
Dim plage As Range, cel As Range, alea As Double
Set plage = Range("A1:C4") 'modifiable
plage.Value = ""
If plage.Count > 12 Then Exit Sub
Randomize
For Each cel In plage
1 alea = WorksheetFunction.RandBetween(1, 12)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
End Sub
Cordialement.