Historique VBA

Bonjour à tous,

Je m'entraîne sur VBA car c'est un outil que j'aimerais maîtriser.

J'ai donc crée un quizz (ci joint) J'aimerais que dans la feuille statistique l’historique des tentatives soit indiqué

Que pour chaque tentative, on y enregistre le numéro d’essai, la ville sélectionnée et le nom du pays.

J'y ai passé beaucoup de temps mais je n'y arrive pas du tout j'aurais besoin d'un coup de main.

Merci par avance

Bien cordialement

Bonjour,

Option Compare Text

Private Sub ListBox1_Click()
    Dim Q As Worksheet, V As Worksheet, S As Worksheet
    Dim Col_Pays As Long
    Dim vl As Range
    Application.ScreenUpdating = False
    Set Q = Sheets("Quizz")
    Set V = Sheets("Villes")
    Set S = Sheets("Statistiques")
    Range("H24").Value = ListBox1.List(ListBox1.ListIndex)
    ville = Range("H24").Value
    Col_Pays = V.Cells(1, Q.Range("K3").Value * 2 - 1).Column
    Set vl = V.Range(V.Cells(1, Col_Pays), V.Cells(10, Col_Pays)).Find(ville)
    If Not vl Is Nothing Then
        With S
            ligne = .Cells(Rows.Count, "A").End(xlUp).Row + 1
            .Cells(ligne, "A") = ligne - 1
            .Cells(ligne, "B") = ville
            .Cells(ligne, "C") = V.Cells(1, Col_Pays)
        End With
        If V.Cells(vl.Row, Col_Pays + 1) = "c" Then Q.Range("K24").Value = "Gagné" Else: Q.Range("K24").Value = "Perdu"
    End If
    Set Q = Nothing
    Set V = Nothing
    Set vl = Nothing
End Sub