J'ai crée la commande suivante permettant de supprimer automatiquement les lignes ayant un nom autre que DPUP
For lin=ActiveSheet.UsedRange.rows.count+Activesheet.UsedRanges.Row to 6 Step -1
If Cells(lin,18) <>"DPUP" Then Rows(lin).Delete Shift:=xlup
Next lin
Cette commande fonctionne de temps en temps selon le fichier (csv) traité
Je bloque sur ce bug, j'ai beau de retourner la cervelle dans tous les sens et toujours dans l'incompréhension
en comptant sur votre savoir MERCI