Private Sub aide1_Click()
Dim mess As String

mess = "Pour ces 2 boutons, importez les résultats du loto ou de l'euromilion à partir du site internet, en choisissant le format excel.CSV"
mess = mess & vbLf & "Copiez la feuille du fichier téléchargé et collez-la en A1 dans la feuille 'ResultatsLoto' ou 'ResultatsEuro' selon le cas,"
mess = mess & vbLf & "puis cliquez sur l'un ou l'autre en fonction de votre étude." & vbLf
mess = mess & vbLf & "L'action mettra en forme les données dans la feuille 'loto' préparée pour cela."

MsgBox mess
End Sub

Private Sub CommandButton1_Click()
    usf_analyses.Show 0
End Sub

Private Sub CommandButton14_Click()
    usf_expliqColonnesLOTO.Show 0
End Sub

Private Sub CommandButton15_Click()
    usf_apropos.Show 1
End Sub

Private Sub CommandButton16_Click()
    usf_principe.Show 1
End Sub

Private Sub CommandButton2_Click()
    usf_importLoto.Show 0
End Sub

Private Sub CommandButton3_Click()

End Sub

Private Sub CommandButton4_Click()
    Sheets("Analyse").Select
End Sub

Private Sub CommandButton5_Click()

End Sub

Private Sub CommandButton7_Click()
    usf_analyses.Show 0
    usf_analyses.MultiPage1.Value = 0
End Sub

Private Sub CommandButton8_Click()
    usf_analyses.Show 0
    usf_analyses.MultiPage1.Value = 2
End Sub

Private Sub feuilleCombinatoireSurSaisie_Click()
    Sheets("liste1").Select
End Sub

Private Sub feuilleDuGraphique_Click()
    Sheets("graph").Select
End Sub

Private Sub feuilleHistoNum_Click()
    Sheets("HistoNum").Select
End Sub

Private Sub feuilleHistorique255075tirages_Click()
    Sheets("255075T").Select
End Sub

Private Sub feuilleListeXMLtirages_Click()
    Sheets("XML").Select
End Sub

Private Sub feuilleLoto_Click()
    Sheets("loto").Select
End Sub

Private Sub feuilleResultatsDuLoto_Click()
    Sheets("ResultatsLoto").Select
End Sub

Private Sub feuilleResultatsEuromillion_Click()
    Sheets("ResultatsEuro").Select
End Sub

Private Sub feuilleTriangleDesPaires_Click()
    Sheets("triangle").Select
End Sub

Private Sub UserForm_Initialize()
'a placer dans chaque userform pour disposer
'des 3 boutons min max supp fenetre
  MinMaxSupp Me
  

End Sub
Private Sub UserForm_Click()

End Sub