Masquer certaines lignes sur Excel

Bonjour,

A partir d'une trame de management de projet que j'ai crée sur Excel, je souhaite masquer certaines lignes en fonction du suivi qui va être utilisé.

Je m'explique:

Pour un suivi léger pour des projets conception, seule la rédaction des plans détaillés est intéressantes à suivre, donc on cache les autres lignes (ie consultation prestataires, retour offre, etc.)

Pour un raisonnement détaillé, je souhaite que l'ensemble des étapes apparaissent.

J'ai enregistré une macro qui cache les lignes souhaitées, et une autre qui réinitialise le tout.

Cependant, quand j'active la macro qui est censée cacher certaines lignes seulement, c'est l'ensemble des lignes sélectionnées qui disparaissent MAIS AUSSI celles qui sont entre.

J'espère avoir été assez clair, si non, n'hésitez à me poser des questions, si la problématique vous intéresse.

Sub SuiviLeger()
'
'

'
Rows("36:36").Select
Selection.EntireRow.Hidden = True
Rows("37:37").Select
Selection.EntireRow.Hidden = True
Rows("40:40").Select
Selection.EntireRow.Hidden = True
Rows("41:41").Select
Selection.EntireRow.Hidden = True
Rows("44:44").Select
Selection.EntireRow.Hidden = True
Rows("45:45").Select
Selection.EntireRow.Hidden = True
Rows("48:48").Select
Selection.EntireRow.Hidden = True
Rows("49:49").Select
Selection.EntireRow.Hidden = True
Rows("52:52").Select
Selection.EntireRow.Hidden = True
Rows("53:53").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=39
Rows("56:56").Select
Selection.EntireRow.Hidden = True
Rows("57:57").Select
Selection.EntireRow.Hidden = True
Rows("60:60").Select
Selection.EntireRow.Hidden = True
Rows("61:61").Select
Selection.EntireRow.Hidden = True
Rows("64:64").Select
Selection.EntireRow.Hidden = True
Rows("65:65").Select
Selection.EntireRow.Hidden = True
Rows("68:68").Select
Selection.EntireRow.Hidden = True
Rows("69:69").Select
Selection.EntireRow.Hidden = True
Rows("72:72").Select
Selection.EntireRow.Hidden = True
Rows("73:73").Select
Selection.EntireRow.Hidden = True
Rows("76:76").Select
Selection.EntireRow.Hidden = True
Rows("77:77").Select
Selection.EntireRow.Hidden = True
Rows("80:80").Select
Selection.EntireRow.Hidden = True
Rows("81:81").Select
Selection.EntireRow.Hidden = True
Rows("84:84").Select
Selection.EntireRow.Hidden = True
Rows("85:85").Select
Selection.EntireRow.Hidden = True
Rows("88:88").Select
Selection.EntireRow.Hidden = True
Rows("89:89").Select
Selection.EntireRow.Hidden = True
Rows("92:92").Select
Selection.EntireRow.Hidden = True
Rows("93:93").Select
Selection.EntireRow.Hidden = True
Rows("96:96").Select
Selection.EntireRow.Hidden = True
Rows("97:97").Select
Selection.EntireRow.Hidden = True
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.SmallScroll Down:=-24
Range("V38").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V42").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V46").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V50").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V54").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V58").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V62").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V66").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V70").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V74").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V78").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V82").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V86").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V90").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V94").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V98").Select
ActiveCell.FormulaR1C1 = "100%"
Range("V99").Select
End Sub


Sub ResetSuiviLeger()
'
' ResetSuiviLeger Macro
' Macro enregistrée le 18/11/2013 par jmendoza
'

'
Rows("35:35").Select
ActiveWindow.SmallScroll Down:=36
Rows("35:98").Select
Selection.EntireRow.Hidden = False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
Range("V36:V38,V40:V42,V44:V46,V48:V50").Select
Range("V48").Activate
ActiveWindow.SmallScroll Down:=15
Range("V36:V38,V40:V42,V44:V46,V48:V50,V52:V54,V56:V58,V60:V62").Select
Range("V60").Activate
ActiveWindow.SmallScroll Down:=18
Range( _
"V36:V38,V40:V42,V44:V46,V48:V50,V52:V54,V56:V58,V60:V62,V64:V66,V68:V70,V72:V74,V76:V78" _
).Select
Range("V76").Activate
ActiveWindow.SmallScroll Down:=15
Range( _
"V36:V38,V40:V42,V44:V46,V48:V50,V52:V54,V56:V58,V60:V62,V64:V66,V68:V70,V72:V74,V76:V78,V80:V82,V84:V86,V88:V90,V92:V94,V96:V98" _
).Select
Range("V96").Activate
Selection.ClearContents
End Sub



Cordialement.

José00802