Sub test()
'
'un certain nombre d'operations
Call sousprogramme
'ce sous-programme est long et je voudrais le mettre à part, et m'en servir avec differentes variables
'ici, ca plante, car mon programme principal, ne semble pas pouvoir chercher dans une zone nommee par mon sousprogramme
somdep = 0
For Each depense In zoneLM
datedep = Format(depense.Offset(, 1), "m")
If datedep = Vmois Then
somdep = somdep + depense
End If
Next depense
End Sub
Sub sousprogramme()
'definit une zone en fonction de bornes (2 cellules)
Set zoneLM = Range(debcellLM, debcellepicerie.Offset(-1, 2))
'je rajoute ce nom dans mon classeur
ActiveWorkbook.Names.Add Name:="zoneLM", RefersTo:=zoneLM
End Sub