Sub test()
Dim Table(), n As Integer
ReDim Table(1 To 1, 1 To 1)
For t = 0 To 4 'Activities1 : 0 pas de croix, 1= Croix en S, 2=Croix en M, 3= croix en V, 4=Croix en VC
For u = 0 To 4 'Activities2... pareil
For v = 0 To 4 'Activities3... pareil
For w = 0 To 4 'Activities4... pareil
n = n + 1
ReDim Preserve Table(1 To 1, 1 To n)
Table(1, n) = "'" & t & u & v & w 'Code
Next
Next
Next
Next
Feuil1.Range("A10").Resize(UBound(Table, 2), 1) = Application.Transpose(Table) 'Liste de toutes les combinaisons
End Sub