Ma macro ne fonctionne bien qu'en pas a pas...

J'ai crée une macro Excel pour récupérer les données d'un multimètre et ensuite les traiter dans Excel. La macro fonctionne bien en pas a pas (récuperation des octets un par un dans la feuille), mais en exécution les cellules restent vides (le décalage se fait bien). J'ai essayé en laissant le doigt appuyé sur F8.. Même problème...
La macro va trop vite pour Excel?

Le code est là:

Private Sub CommandButton1_Click()

Sheets("Lancement").Activate
Range("A1").Select

'choisir un port série
MSComm1.CommPort = 2


'DMM
'19200 bauds, Parite Impaire, 7 bits de données, 1 bit d'arrêt
MSComm1.Settings = "19200,o,7,1"

'Vide le buffer
MSComm1.InBufferCount = 0

MSComm1.InputMode = 0


'ouvre le port
MSComm1.PortOpen = True

MSComm1.InputLen = 17 'fixe le nombre de caracteres a lire

Seq = MSComm1.Input 'place la sequence lue dans Seq

'affiche un message
UserForm1.Label2.Visible = True
Label2.Caption = ""
UserForm1.Repaint

'vide les cellules de la feuille
Range("A1:O1").ClearContents

Dim Pos As String
Pos = 1

Do While Pos <= 15

Dim Resultat As String

Resultat = Mid(Seq, Pos, 1)

ActiveCell.Value = Resultat
Label1.Caption = Resultat
ActiveCell.Offset(0, 1).Select
Pos = Pos + 1

Loop

'ferme le port
MSComm1.PortOpen = False
Label2.Caption = "Capture terminée"

End Sub


Private Sub CommandButton2_Click()
Unload Me
End Sub