Bonjour René
Pour le bouton report pas problème
pour le bouton 1 feuil relevé ENE le tri ne se fait pas
J'ai bien réglé au 1/09
bug ici
Sub AjouteNouveau()
Dim i As Long, j As Long, C As Long, test As Boolean
For i = 1 To UBound(TblRelevé)
test = True
For j = 1 To UBound(tbl, 2) Step 4
If TblRelevé(i, 1) = tbl(1, j) Then test = False: Exit For
Next j[/code]