Codage vba excel

Bonjour à tous,


j'ai posté hier mais je ne retrouve plus la page...aie aie aie.

ma macro a un problème : erreur 1004
qui me dit qu'il y a un problème avec "range" et select....chose que je ne maîtrise pas.

un peu d'aide serait la bien venue svp...

Sub Macro1Paramètrer()
'
' Macro4 Macro
' Macro enregistrée le 18/03/2008 par Julien
'

'
Sheets("Paramètrage heures").Select
Range("D7:F51").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("B5:D49").Select
ActiveSheet.Paste
Sheets("Juin").Select
Range("B5:D49").Select
ActiveSheet.Paste
Sheets("Juillet").Select
ActiveWindow.SmallScroll Down:=-12
Range("B5:D49").Select
ActiveSheet.Paste
Sheets("Aout").Select
ActiveWindow.SmallScroll Down:=-12
Range("B5:D49").Select
ActiveSheet.Paste
Sheets("Septembre").Select
ActiveWindow.SmallScroll Down:=-6
Range("B5:D49").Select
ActiveSheet.Paste
Sheets("Octobre").Select
Range("B5:D49").Select
ActiveSheet.Paste
Sheets("Novembre").Select
ActiveWindow.SmallScroll Down:=-12
Range("B5:D49").Select
ActiveSheet.Paste
Sheets("Décembre").Select
ActiveWindow.SmallScroll Down:=-12
Range("B5:D49").Select
ActiveSheet.Paste
Sheets("Janvier").Select
Range("B5:D49").Select
ActiveSheet.Paste
Sheets("Février").Select
ActiveWindow.SmallScroll Down:=-3
Range("B5:D49").Select
ActiveSheet.Paste
Sheets("Mars").Select
Range("B5:D49").Select
ActiveSheet.Paste
Sheets("Avril").Select
Range("B5:D49").Select
ActiveSheet.Paste
Sheets("Mai").Select
Range("B5:D49").Select
ActiveSheet.Paste
Sheets("Paramètrage heures").Select
ActiveWindow.SmallScroll Down:=-9
Application.CutCopyMode = False
Range("G7:G51").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("E5:E49").Select
ActiveSheet.Paste
Sheets("Paramètrage heures").Select
ActiveWindow.SmallScroll Down:=-18
Application.CutCopyMode = False
Range("H7:H51").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-15
Range("F27").Select
Sheets("Récapitulatif heures").Select
Range("G5:G49").Select
ActiveSheet.Paste
Sheets("Paramètrage heures").Select
Application.CutCopyMode = False
Range("I7:I51").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("I5:I49").Select
ActiveSheet.Paste
Sheets("Paramètrage heures").Select
ActiveWindow.SmallScroll Down:=-18
Application.CutCopyMode = False
Range("J7:J51").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("L5:L49").Select
ActiveSheet.Paste
Sheets("Paramètrage heures").Select
ActiveWindow.SmallScroll Down:=-15
Application.CutCopyMode = False
Range("K7:K51").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("N5:N49").Select
ActiveSheet.Paste
Sheets("Paramètrage heures").Select
ActiveWindow.SmallScroll Down:=-12
Application.CutCopyMode = False
Range("G7:K51").Select
Selection.Copy
Sheets("Juin").Select
ActiveWindow.SmallScroll Down:=-51
Range("AO5:AS49").Select
ActiveSheet.Paste
Sheets("Paramètrage heures").Select
Application.CutCopyMode = False

End Sub