Bonjour
Bon je n'y connais rien a ces histoires de régression.... mais une chose est sur... il y a un problème dès le départ... tu as fait ceci :
dimension = Range("W2").Value
Hors W2 est vide (sur les deux feuilles... d'ailleurs on ne sait pas sur quelle feuille tu es..... )
donc cette boucle ne se fait pas...
For i = 1 To dimension - 13
...
next
le mieux c'est que tu expliques par des phrases ou un tableau en couleur dans ton fichier test ce que tu recherche a faire exactement...
Fred