Bonjour,
Je voudrais transférer tous les résultats d'une boucle for next vers une feuille de calcul. Voici le code que j'ai fait.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub essai()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
 
For i = 1 To 15
    For j = 1 To 15
        For k = 1 To 15
            For l = 1 To 15
                For m = 1 To 15
                    Debug.Print i; "-"; j; "-"; k; "-"; l; "-"; m
                Next m
            Next l
        Next k
    Next j
Next i
 
End Sub
Merci d'avance pour celui qui pourra m'aider.