Bonjour,

J'aimerais copier les cellules rouges de chaque feuille ( cf pièces jointes) dans la feuil1.
Je sais comment faire pour une feuille (chaumont) mais j'aimerais le faire tourner sur toutes les feuilles.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub copier()
 
 
'Feuil1 -> nom de l'onglet de la feuille source
'Feuil2 -> nom de l'onglet de la feuille destination
Application.EnableEvents = False
With Worksheets("chaumont")
    'Tu peux lister toutes les plages discontinues que
    'tu veux copier vers leur destination. La destination
    'peut se faire sur des feuilles différentes, voir des
    'classeurs différents si ces derniers sont ouverts
 
    .Range("c4:d4").Copy Worksheets("Feuil1").Range("a2:b2")
    'Exemple destination -> autre classeur
    '.Range("H2:P25").Copy _
        Workbooks("AutreClasseur.xls").Worksheets("Feuil").Range("A1")
End With
Application.EnableEvents = True
End Sub
ce serait bien si je pouvais les copier tous sur la plage a:b