j'ai jamais fait de VBA dans Excel, mais je suspecterais la valeur de VAR1 et l'erreur est possiblement lors de l'exécution de cette ligne:
VAR2 = Sheets("Hebdomadaire").VAR1
modifier votre code comme suit pour savoir exactement où l'erreur se produit
Code :
Sub PireMois()
on error goto errHandler
1: Dim VAR1, VAR2, VAR3
2: Sheets("Hebdomadaire").Select
3: VAR1 = Application.WorksheetFunction.Max(Sheets("Hebdomadaire!O6:O57"))
4: VAR2 = Sheets("Hebdomadaire").VAR1
5: VAR3 = Range("A6", VAR2).Value
6: Sheets("Sommaire").Select
7: Sheets("Sommaire").Cell("G26").Value = VAR3
exit sub
errHandler:
MsgBox Err.Number & " - " & Erl & " - " Err.Description
End Sub
Dans le temps en VB j'avais créé un programme qui ajoutais ces numéros de ligne automatiquement au moment de la compilation (pour les versions de debug), le code source original demeurait donc inchangé. À défaut de quoi tu peux regarder pour MZTools (
http://www.mztools.com/v3/mztools3.aspx)