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,

Essaie ainsi :

DLig = .Range("B" & Rows.Count).End(xlUp).Row

Merci ca regle mon prombleme !!!!