Pb avec Workbooks.Add

Voilà j'ai un p'tit bout de prog dont l'objéctif est de créer un nouveau classeur et de copîer des feuilles dedans ...
Cependant à chaque coup que le prog rencontre une ligne contenant
CurrentWorkbook, il me crée un nouveau classeur et je comprends pas
pourquoi !!! Monde trop zinzuste !
Merci pour vos réponses, forums cool.

Guilmo.

Dim sinw As Long

sinw = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Set CurrentWorkbook = Workbooks.Add
Application.SheetsInNewWorkbook = sinw

'on copie les courbes ...
If page4 Then
Courbes.Copy
CurrentWorkbook.Sheets(1).Paste
Else
Graph2.Copy
CurrentWorkbook.Sheets(1).Paste
CurrentWorkbook.Sheets.Add
Graph3.Copy
CurrentWorkbook.Sheets(2).Paste
End If