Bonjour tout le monde,

c'est encore moi!
Bon, ce soir, je cherche à faire la chose suivante :

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
20
21
22
23
24
25
26
27
28
29
30
Dim wba As Workbook
Dim wsa As Worksheet
Dim wsb As Worksheet
 
 
Set wba = ThisWorkbook
Set wsa = ActiveSheet
 
'pour chaque feuille de mon book
For Each wsb In wba
'dont le nom est supérieur au nom de la feuille active (les noms des feuilles sont des années 2001 à 2008)
    If wsb.Name >= wsa.Name Then
'tant que la colonne de la cellule courante est inférieure à "GA" (j'ai mis ça mais ça ne doit pas être bon)
        While ActiveCell.Column < "GA"
'alors copie de 3 cellules à partir de la feuille courante
            ActiveCell.Range("A1:C1").Copy
'copie dans une autre feuille
            Sheets("Tableau").Select
            Range("B3").PasteSpecial xlPasteValuesAndNumberFormats
'j'avance de 15 colonnes
            Sheets(wsb).Select
            ActiveCell.Column = ActiveCell.Column + 15
'fin de la boucle            
        Wend
        Sheets(wsa).Select
        Range("AR4:AT4").Copy
        Sheets("Tableau").Select
        Range("B2").PasteSpecial
    End If
Next wsb
Pour les initiés, ce code va être horrible, mais j'ai fait ce que j'ai pu à partir de mes petites bases ^^
Mais j'ai une erreur du type suivant :
nombre 'argument incorrect ou affectation de propriété incorrecte

Qu'est-ce que ça signifie?
Merci d'avance