séparation des fonction dans le même code(RÉSOLU)

Dranreb à dit:

bonsoir.
Essayez comme ça :

VB:

Private Sub Worksheet_Change(ByVal R As Range)
Select Case R.Address
   Case [M5].Address
      Rows("6:10").Hidden = 1
      Rows("14:18").Hidden = 1
      Rows("5:" & R + 5).Hidden = 0
      Rows("13:" & R + 13).Hidden = 0
   Case [L23].Address
      Rows("25:74").Hidden = 1
      Rows("24:" & R + 24).Hidden = 0
   End Select
End Sub

Cliquez pour agrandir...