Ma macro VB Excel marche une fois sur deux

Bonjour,
J'ai un souci avec excel, j'ai une macro liée à un bouton de controle sur une feuille, et le traitement n'a pas lieu tout le temps.

Voici ma macro
Sub Entrer()

' Entrer Macro
' Macro enregistrée le 01/07/2008 par Administrator
'
' Touche de raccourci du clavier: Ctrl+w
'
Dim Siren As String
Dim Condition As Boolean
Dim i As Integer

Application.ScreenUpdating = True
' maréponse = InputBox("Commentaire Perfectis")

Siren = Sheets(1).Range("G6").Value
i = 1
Condition = False

Do
If Siren = Sheets(2).Cells(i, 6).Value Then
Sheets(2).Cells(i, 2).Value = Sheets(1).Range("I46").Value
Sheets(2).Cells(i, 55).Value = Sheets(1).Range("I47").Value
Sheets(2).Cells(i, 56).Value = Sheets(1).Range("I48").Value
Condition = True
End If
i = i + 1
Loop While (ActiveCell.Value <> "" And Condition = False)

Load UserForm1
UserForm1.Show

End Sub

Merci d'avance !

Configuration: Windows XP
Internet Explorer 6.0