Sub Afficher_ligne()
Dim nGraph As Long
nGraph = Val(Split(Application.Caller)(1))
Rows(17 + nGraph).EntireRow.Hidden = False
Shapes("Graphique " & nGraph).Visible = False
If nGraph < 4 Then Shapes("Graphique " & nGraph + 1).Visible = True
Shapes("bt_RAZ").Visible = True
End Sub
Sub RaZ()
Shapes("bt_RAZ").Visible = False
Shapes("Graphique 1").Visible = True
Rows("18:21").EntireRow.Hidden = True
End Sub