Bonjour,
Avec 11(B), ton programme ne peut pas fonctionner : tu recherches la lettre sur le 3ème caractère. Avec 5(A), ça marche mais avec 11(B), le B est le 4ème caractère
Tu peux procéder ainsi :
Dans ta boucle, tu modifies le calcul de colonne2 ainsi (en 2 lignes):
tableau = Split((Workbooks(2).Worksheets(1).Cells(i, 1)), "(")
colonne2 = Left(tableau(1), 1)
Par contre, il y a quelque chose qui m'étonne dans ton fichier récap
Tu es censé écrire dans la première ligne disponible. Or certaines lignes sont obtenues par formule (exemple : B3, B5, B4)
a+