Bonjour,

Je souhaite faire une boucle pour coller un sélection sur plusieurs feuilles :

Feuilles :
TEST
SEM 1
SEM 2
SEM 3
SEM 4
SEM 5
RECAP

A savoir que les feuilles SEM 1, SEM 2 ... peuvent aussi s'appeler selon le mois :
SEM 5
SEM 6
SEM 7
SEM 8
SEM 9

Donc je copie une sélection de la SEM 1 qui est la feuille active et je souhaite la copier dans les autres semaines (soit tous les onglet sauf ONGLET TEST ET ONGLET RECAP)

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 ActiveCell.Copy
 
For Each ws In Worksheets
 
If ws.Name > "SEM 1" Or ws.Name < "SEM 52" Then
ws.Range("a999").End(xlUp).Offset(5, 0).PasteSpecial xlPasteAll
 
End If
 
Next ws