Wouah ! Galopin a arraché...
Je livre quand même l'objet, méthode variante
Private Sub CommandButton1_Click()
Dim tx$, n%, i%, k%, Tbl(11, 6)
tx = TextBox1.Value: n = CInt(TextBox2.Value)
If tx = "" Or n = 0 Then MsgBox "Saisie incomplète": Exit Sub
For i = 0 To 11
For k = 0 To 6 Step 2
Tbl(i, k) = tx & " " & n + i * 4 + k / 2
Next k
Next i
With Worksheets("Feuil1")
.Range("A1:G12").Value = Tbl
.Activate
End With
Unload Me
End Sub
Cordialement.