Erreur de comptage de ligne

Bonjour tout le monde

Voila le probleme j'ai un petit programe en VBA qui permet d'extraire un programe en VBA pour metre en forme des mesur sur un groupe electrogéne voila le programe mais j'ai une erreur a la ligne 196 j'ai l'impression que la commande DLig = .Range("B" & Rows.Count).End(xlUp) ne detecte pas coretctement le nombre de ligne en effet a chaque essai il me resort la valeur 1 le fichier compresser comporte les fichiers dont on extrait les valeurs

merci d'avence

Bonjour,

j'ai ajouté ceci

Debug.Print c
Debug.Print .Range("B" & Rows.Count).End(xlUp)

il n'existe pas de feuille appelée c !!

essaie avec ceci :

        If verif = 1 Then
            With Sheets(NomOngletGRP)

Bonjour @Steelson

Merci de ton retour malheuresement cela ne fonctione pas

je pense que cela doit venir de la commende en question car avec le debugueur j'obtien des resultats assez etrange

A tu une solution ? merci d'avence

a priori non, ton code est extrêmement complexe

si j'ai 2 heures demain matin je m'y replongerai mais sans conviction quant au résultat !