Sub TrouverCombi14K9()
Application.ScreenUpdating = False
Debut = Cells(1, 1).Value
Lig = 1
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
For l = 0 To 9
For m = 0 To 9
Cells(Lig, 2) = Debut & i & j & k & l & m
Lig = Lig + 1
Next
Next
Next
Next
Next
Application.ScreenUpdating = True
End Sub