Bug lors de l'insertion de cellules
Bonjour,
Je cherche à recopier les cellules de A à O d"une ligne identifiée pour la dupliquer un certain nombre de fois.
Pour se faire, j'utilise ce bout de code.
Code:
1
2
3
| CellsToCopy = .Range("A3").End(xlDown).Offset(1, 0).Row
.Range("A" & CellsToCopy & ":O" & CellsToCopy).Copy .Range("A" & CellsToCopy & ":O" & CellsToCopy + MyCounter - 1).Insert(Shift:=xlDown) |
et là Excel me ramène la fameuse erreur 1004.
Je ne vois pas où j'ai mal codé.
Pour info, la variable MyCounter est définie plus haut, comme un entier et dans mon test elle prend la valeur de 3 donc je ne pense pas que le problème vienne de là.
Une âme charitable pourrait-elle m'éclairer et me dire où est-ce que j'ai mal écrit SVP?
Merci d'avance et très bonne journée à toutes et tous.
