Private Sub ComboBox1_Click()
If ComboBox1.Value = "petchy" Then Sheets("Graphe MTTR").Activate
Sheets("Graphe MTTR").Range("A1").Select
'Remplace ton item et ta feuille par tes items et tes noms d'onglets.
If ComboBox1.Value = "Ton item" Then Sheets("Ta feuille").Activate
Sheets("Ta feuille").Range("A1").Select
End Sub