Bonjour, je n'avais pas pensé à l'évolution du tableau donc j'ai pris une coordonnée fixe cells(171,3) où C171 dans un tableau mouvant ! Forcément l'erreur est inévitable, du coup pour pallier à ça dans le code il faut remplacer :
ctt = Feuil1.Cells(171, j)
par
ctt = Application.WorksheetFunction.CountIf(Feuil1.Range(Cells(5, j), Cells(dl, j)), 1)
Ou a va compter le nombre de 1 présent de la ligne 5 à la dernière ligne non vide (calculée sur la base de la colonne A)