Ereur "variable non definie"

Private Sub CommandButton2_Click()

Sheets("RECAP").Select
'Selection de la premiere ligne vide
i = 3
While Not Sheets("RECAP").Range("b" & i & "").Value = ""
i = i + 1
Wend
' Vérification ligne existante
ligne = 3
While Not Sheets("RECAP").Range("b" & ligne & "").Value = ""
If Sheets("RECAP").Range("b" & ligne & "").Value = TextBox11.Text Then
reponse = MsgBox("ligne existante, voulez vous valider les modifications ?", vbYesNo)
If reponse <> 6 Then End
i = ligne
End If
ligne = ligne + 1
Wend

'Copie des données sur la feuil RECAP
With ActiveSheet
.Unprotect
'Datecode/OF
.Cells(i, 2) = TextBox11.Text
.Cells(i, 3) = TextBox88.Text
end with
end sub

Cliquez pour agrandir...