Bonsoir ghisnob,
le paramétrage de la macro c'est bon, J'ai pour cette ligne
For i = 3 To 15
et pour la feuil1, je suis à feuil23.
En automatique , ça fonctionne mais pour tester tout ça je suis passé par "F8" et à la ligne:
Feuil1.Range("A" & i & " : I" & i).Value = ""
de mémoire, ça passait sur une autre macro du module 1
Function TotalB(Code)
et mettait le "brun" dans les calculs!
mais sinon ça marche bien.
Encore merci
Bonne soirée