Une macro si simple mais qui ne marche pas

J'ai toujours le même problème avec ma première macro.

Quand je l'exécute : une fois elle affiche la première donnée de la liste de mots présents en colonne A, tandis que lors de l'exécution suivante, elle n'affiche rien.

Surtout, quand je clique sur l'un quelconque des deux boutons, rien ne se passe et je dois l'arrêter en cliquant sur la croix du coin haut-droit.

Je joins le fichier, si quelqu'un veut bien se pencher dessus.

Sub Balayage_Colonne_A()
'Déclaration des variables
Dim i As Integer
Dim Compteur As Integer
Dim Donnee As String

Compteur = 0

'Boucle de balayage de la colonne A
For i = 2 To Range("A65536").End(xlUp).Row
    Donnee = Range("A" & i).Value

    'Affichage de la donnée et incrémentation du compteur
    If Donnee <> "" Then
        Compteur = Compteur + 1

        'Formulaire avec bouton1 et bouton2
        UserForm1.Show
        UserForm1.TextBox1 = Donnee
        Do Until UserForm1.CommandButton1.Value = True Or UserForm1.CommandButton2.Value = True
            DoEvents
        Loop

        'Si l'utilisateur a cliqué sur le bouton1, on arrête le balayage
        If UserForm1.CommandButton2.Value = True Then
            Exit For
        End If
    End If
Next
'Affichage du compteur
MsgBox ("Le compteur est de " & Compteur & ".")

End Sub

Private Sub UserForm_Initialize()
    Me.StartUpPosition = 2
End Sub
Private Sub CommandButton1_Click()
'
End Sub
Private Sub CommandButton2_Click()
'
End Sub

Bonsoir,

un essai avec quelques modifications (nécessaires ? Je ne sais...) Par exemple, les variables représentant les lignes d'une feuille je les met en "long" afin d'autoriser à aller au delà des 32768 lignes ! mais connaissant votre tableau vous êtes à même de savoir si ce chiffre peut être atteint ou pas...

Le fichier :

@ bientôt

LouReeD