[XL-2010] l'application select range a échoué

Bonjour,

J'essaye de copier des valeur entre deux feuil excel par macro , mais j'ai tjrs un msg d'erreur indiquant que la méthode select de la classe range a échoué:

le voilà mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
    Worksheets(1).Activate
    ActiveSheet.Range("A9").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Worksheets(2).Activate
    ActiveSheet.Range("C5").Select
    ActiveSheet.Paste
 
    Sheets("Mesure Bending").Select
    Range("B10").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Calcul Resistance + Evolut Max").Select
    Sheets("Mesure Bending").Select
    Range("B367").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Worksheets(2).Range("D304").Select
    Selection.Paste

Merci d'avance