Bonsoir et bienvenue,
On ne sait pas pourquoi tu veux passer par du VBA ... alors, pourquoi ne pas essayer "simplement" par formules?
En K6:
=DECALER($C6;;EQUIV($Q$11;$C$4:$J$4;0)-1)
... à recopier vers le bas ... ne donnerait pas le résultat attendu?
Bonsoir tulipe_4