Microsoft 365 Démasquage plusieurs lignes

[FCMLE44]

Bonsoir

J'ai fait ce code

'----------------------- Démasque liste des tâches----------------------------------
Sub Casdoption57_Cliquer()
Application.EnableEvents = False
ActiveSheet.Rows("67:68,71:115").Hidden = False
Application.EnableEvents = True
End Sub

Je dois démasquer les lignes 67 à 68 et 71 à 115 mais cela ne fonctionne pas
Je pense que mon anomalie se situe ici

ActiveSheet.Rows("67:68,71:115").Hidden = False

Quelqu'un aurait il une idée ?

Merci

 

[FCMLE44]

J'ai trouvé la solution en faisant comme ça

Sub Casdoption79_Cliquer()
Application.EnableEvents = False
ActiveSheet.Rows("71:115").Hidden = False
Application.EnableEvents = True
ActiveSheet.Rows("67:68").Hidden = False
Application.EnableEvents = True
End Sub