XL 2010 Copier les informations d’un textbox dans certaines cellules d’une colonne

Private Sub Enr_données()
    Dim i As Integer
    Dim f As Worksheet

    Set f = ThisWorkbook.Worksheets("TC")
    For i = 3 To 102
        If f.Cells(i, 2).Interior.ColorIndex = xlNone Then
            f.Cells(i, 2).Value = Val(Me.NUMERO)
        End If
    Next
    'With SAISI_SUIVI
    'End With
    f.Activate

End Sub


'****************************************************************************************
'code du bouton de validation
'****************************************************************************************
Private Sub Validation_Click()

    If Me.NUMERO <> "" Then
        Enr_données
        Unload SAISI_SUIVI
        Unload SUIVI_D_AVANCEMENT
    Else
        MsgBox "entrer un numéro,svp"
    End If

End Sub