Enregistrer des données dans un classeur fermé

Bonjour le forum,
voila mon petit soucis,
quand je valide le bouton click ('cela enregistre les données de mon userform dans un classeur fermé) j'ai une erreur de compilation: non defini par l'utilisateur
voici le code

 Sub VALIDER_Click()
  Dim Cn As ADODB.Connection
    Dim Fichier As String

    'Définit le classeur fermé servant de base de données
    Fichier = "C:\Users\Sandrine\Desktop\PERSO\SOCIETE\Suivi SJTC\Candidats\base de données Freelance.xls"

    Set Cn = New ADODB.Connection

    '--- Connexion ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
Application.ScreenUpdating = False
Sheets("GLOBAL").Activate
ActiveSheet.Range("A1").End(xlUp).Offset(2, 0).Select
Selection.EntireRow.Insert
Range(Cells(2, 1), Cells(2, 6)).Interior.ColorIndex = 2
Range(Cells(2, 1), Cells(2, 6)).Borders.Weight = 1
Range(Cells(2, 1), Cells(2, 6)).Borders.ColorIndex = 1
ActiveCell.Offset(0, 0) = Nom
ActiveCell.Offset(0, 1) = Prenom
ActiveCell.Offset(0, 2) = Tel
ActiveCell.Offset(0, 3) = Mail
ActiveCell.Offset(0, 4) = Statut
ActiveCell.Offset(0, 5) = Competences
Cn.Close
    Set Cn = Nothing
Unload Me

End Sub

Merci pour votre aide