OK ... là j'ai compris :-)
Voila mon problème....
Sub MiseAZéro()
'
' MiseAZéro Macro
' Macro enregistrée le 15/02/2006 par hauller
'
'
Sheets(Array("Stock initial", "Achats vin en vrac", "Récolte", _
"Mise en bouteilles", "Ventes de vrac", "Achats confirmés" )). _
Select
Sheets("Stock initial" ).Activate
ActiveWindow.SmallScroll Down:=-24
Range("B10:G13" ).Select
Range("G13" ).Activate
Selection.ClearContents
Range("B17:D20" ).Select
Range("D20" ).Activate
Selection.ClearContents
Range("B24:F27" ).Select
Range("F27" ).Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B31:I34" ).Select
Range("I34" ).Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=6
Range("B38:J41" ).Select
Range("J41" ).Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=15
Range("B45:G48" ).Select
Range("G48" ).Activate
Selection.ClearContents
Range("B52:F55" ).Select
Range("F55" ).Activate
Selection.ClearContents
Range("B59:H62" ).Select
Range("H62" ).Activate
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B66:F69" ).Select
Range("F69" ).Activate
Selection.ClearContents
Range("B73:F76" ).Select
Range("F76" ).Activate
Selection.ClearContents
Range("B80:F83" ).Select
Range("F83" ).Activate
Selection.ClearContents
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stock initial" ).Select
ActiveWindow.SmallScroll Down:=-45
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Stock final" ).Select
ActiveWindow.SmallScroll Down:=-42
Range("B10:G13" ).Select
Range("G13" ).Activate
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Stock initial" ).Select
Range("B10" ).Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Stock final" ).Select
Range("B17:D20" ).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stock initial" ).Select
Range("B17:D20" ).Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Stock final" ).Select
Range("B24:F27" ).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stock initial" ).Select
Range("B24:F27" ).Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=6
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Stock final" ).Select
ActiveWindow.SmallScroll Down:=6
Range("B31:I34" ).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stock initial" ).Select
Range("B31" ).Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=12
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Stock final" ).Select
ActiveWindow.SmallScroll Down:=9
Range("B38:J41" ).Select
Range("J38" ).Activate
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stock initial" ).Select
Range("B38" ).Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Stock final" ).Select
Range("B45:G48" ).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stock initial" ).Select
Range("B45" ).Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Stock final" ).Select
ActiveWindow.SmallScroll Down:=15
Range("B52:F55" ).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stock initial" ).Select
ActiveWindow.SmallScroll Down:=12
Range("B52" ).Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Stock final" ).Select
Range("B59:H62" ).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stock initial" ).Select
ActiveWindow.SmallScroll Down:=3
Range("B59" ).Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Stock final" ).Select
ActiveWindow.SmallScroll Down:=9
Range("B66:F69" ).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stock initial" ).Select
Range("B66" ).Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Stock final" ).Select
Range("B73:F76" ).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stock initial" ).Select
Range("B73:F76" ).Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stock final" ).Select
Range("B80:F83" ).Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stock initial" ).Select
Range("B80:F83" ).Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Stock final" ).Select
ActiveWindow.SmallScroll Down:=-54
Range("B10:G13,B17:D20,B24:F27" ).Select
Range("B24" ).Activate
ActiveWindow.SmallScroll Down:=15
Range("B10:G13,B17:D20,B24:F27,B31:I34,B38:J41" ).Select
Range("B38" ).Activate
ActiveWindow.SmallScroll Down:=21
Range("B10:G13,B17:D20,B24:F27,B31:I34,B38:J41,B45:G48,B52:F55,B59:H62" ).Select
Range("B59" ).Activate
ActiveWindow.SmallScroll Down:=9
Range("B10:G13,B17:D20,B24:F27,B31:I34,B38:J41,B45:G48,B52:F55,B59:H62,B66:F69,B73:F76,B80:F83" ).Select
Range("B80" ).Activate
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Synthèse" ).Select
Range("B13" ).Select
Range("B13:G15,B19:G19,I13:K15,I19:K19" ).Select
Range("K19" ).Activate
ActiveWindow.SmallScroll ToRight:=10
Range("B13:G15,B19:G19,I13:K15,I19:K19,M13:Q15,M19:Q19" ).Select
Range("M19" ).Activate
ActiveWindow.SmallScroll ToRight:=2
Range("B13:G15,B19:G19,I13:K15,I19:K19,M13:Q15,M19:Q19,S13:Y15,S19:Y19" ).Select
Range("Y19" ).Activate
ActiveWindow.SmallScroll ToRight:=11
Range( _
"B13:G15,B19:G19,I13:K15,I19:K19,M13:Q15,M19:Q19,S13:Y15,S19:Y19,AA13:AI15,AA19:AI19" _
).Select
Range("AI19" ).Activate
ActiveWindow.SmallScroll ToRight:=10
Range( _
"B13:G15,B19:G19,I13:K15,I19:K19,M13:Q15,M19:Q19,S13:Y15,S19:Y19,AA13:AI15,AA19:AI19,AK13:AP15,AK19:AP19,AR13:AV15,AR19:AV19" _
).Select
Range("AV19" ).Activate
ActiveWindow.SmallScroll ToRight:=10
Range( _
"B13:G15,B19:G19,I13:K15,I19:K19,M13:Q15,M19:Q19,S13:Y15,S19:Y19,AA13:AI15,AA19:AI19,AK13:AP15,AK19:AP19,AR13:AV15,AR19:AV19,AX13:BD15,AX19:BD19" _
).Select
Range("BC19" ).Activate
ActiveWindow.SmallScroll ToRight:=5
Range( _
"B13:G15,B19:G19,I13:K15,I19:K19,M13:Q15,M19:Q19,S13:Y15,S19:Y19,AA13:AI15,AA19:AI19,AK13:AP15,AK19:AP19,AR13:AV15,AR19:AV19,AX13:BD15,AX19:BD19,BF13:BJ15,BF19:BJ19,BL13:BP15,BL19:BP19,BR13:BV15,BR19:BV19" _
).Select
Range("BV19" ).Activate
ActiveWindow.SmallScroll Down:=12
Selection.ClearContents
Range("B4" ).Select
End Sub
Slts