D'une manière générale YAPA besoin d'une sélection pour faire une copie et de toute façon les Select sont peu recommandables...
YFO donc variabiliser ta ligne de départ puis l'incrémenter dans une boucle
For i = 85 to 101
Cells(i,1).copy ....
mais je ne suis pas sur que ta présentation soit très exacte en effet :
A85/A95 vers B85/B95 puis
A86/A96 vers B86/B96 c'est un peu incohérent...
Un petit effort, un petit fichier démo nous éclairera surement.
A+