problème macro excel pour un formulaire

Bonjour,

je suis en train de mettre en place un formulaire mais je n'arrive pas à faire écrie le résultat du formulaire dans ma feuille Excel. Voici la macro que j'utilise. la ligne me posant problème est en rouge.

Merci de votre aide
Option Explicit
' Nom de l'application
Const strAppName = "Saisie informations sur le cycle"
Dim bNouveau As Boolean

Private Sub AF3GL_Change()

End Sub

Private Sub cmdFermer_Click()
If MsgBox("Confirmez-vous la fin de la saisie?", _
vbQuestion + vbYesNo, strAppName) = vbYes Then
Unload Me
End If
End Sub

Private Sub cmdValider_Click()
Dim rng As Range
Dim i As Integer
'Contrôle des données saisies
If ............................. Then
MsgBox "Les champs sont obligatoires", _
vbExclamation, strAppName
TextNom_cycle.SetFocus
Exit Sub
End If
With ThisWorkbook.Worksheets("preparation")
If bNouveau Then
Set rng = .Range("A3").CurrentRegion
i = rng.Rows.Count + 3
End If
.Cells(i, 3) = preparation.TextNom_cycle
End With
End Sub