simplification macro

Bonjour à tous les experts, J'aimerai simplifier la ligne ci-dessous : Loop Until (Not .Offset(0, -4).Value = "" And Not .Offset(0, -4).Value = "FAUX" And Not .Offset(0, -4).Value = " " And Not .Offset(0, -4).Value = " " And Not .Offset(0, -4).Value = "." And Not .Offset(0, -4).Value = "..")...

Bonjour à tous, j'ai écrit un code vba qui fonctionne mais.... il est vraiment moche et je pense qu'il doit exister une version bien plus rapide et performante en temps (et mémoire) car je dois appliquer celui-ci sur un fichier de 30,000 lignes. J'ai joint un fichier pour expliquer. Dans les...

Bonjour à tous, je pense que l'on peut faire quelque chose de plus simple et rapide ... car je dois faire plusieurs macro de ce type et avec des données différentes en Q5 pour chaque classeur. J'ai cette macro pour imprimer une feuille. Sub Impression () Sheets("feuil1").Activate...