bonjour,
voici une macro si tu ne veux pas la formule que je t'ai proposée avant
Dim a(5), c
Sub aargh()
combi
End Sub
Sub combi(Optional n = 1)
For i = 0 To 9
a(n) = i
If n = 5 Then
c = c + 1
For j = 1 To 5
Cells(c, j) = a(j)
Next j
Else
combi n + 1
End If
Next i
End Sub
ou une autre façon de faire
Sub aargh()
For i = 0 To 99999
s = Format(i, "00000")
For j = 1 To 5
Cells(i + 1, j) = Mid(s, j, 1)
Next j
Next i
End Sub