Merci Draneb
Effectivement c'est très rapide.
J'avoue n'avoir pas très bien compris cette ligne :
TS(L, 1) = "Groupe " & 2 + (Right$(TS(L, 2), 3) = "ABC")
Compte tenu que ce n'est groupe 1 ou 2 que je dois mettre mais deux noms différents; alors j'ai adapté comme suit :
if TS(L,2) Like "*ABC"...