j'ai pu trouver un code un peu similaire à ce que je veux avoir mais j'arrive pas à l'adapter.
le voila
Option Explicit
Sub test()
Call AffComb(49, 5)
End Sub
Sub AffComb(a&, b&)
Dim i#, NbCmb#, Rg As Range, Tb(), j%, NbWrt#, NbRw&, m%, c%, Tc&(), s&
If b > a Or b < 1 Or b >...