Problème VBA sélection d'un plage de données

Bonjour,
Je suis novice excel et j'ai un problème!
Je souhaite récupérer une plage de donnees du classeur A (de la feuille "Spain") pour la coller sur une feuille du classeur B
Voici notre macro VBA "beug" au moment de la sélection "Range ("B4")

Sheets("Spain").Select (classeur B)
If Range("B7") = ("Q1-2009") Then
Workbooks.Open("classeur A ").Sheets!Spain.Activate
Range ("B4") <gras>notre probleme</gras>
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.copy
Windows("ClasseurA.xls").Activate
Sheets("Spain").Select
Range("A23").Select
ActiveSheet.Paste
Else
If Cells("B7") = ("Q3-2008") Then
Windows("ClasseurA").Activate
ActiveWindow.SmallScroll Down:=-87
Range("B45:G48").Select
Selection.copy
Windows("ClassseurB").Activate
Range("A23").Select
ActiveSheet.Paste
Else
…
…
….

Merci d'avance !!