Bonsoir,
Franchement merci mille fois, le programme est super rapide j'ai pas tout compris, je vais étudier tout ca surtout cette partie ou je nage :
Private Sub CommandButton2_Click()
Dim tablo, nlig&, resu$(), i&, x$, j&, n&
tablo = Intersect(UsedRange.EntireRow, [A:M])
nlig = UBound(tablo)...