Ecrire plusieurs lignes dans un classeur fermé

Sub ajoutEnregistrement()
    Dim Cn As ADODB.Connection
    Dim Fichier As String, Feuille As String, strSQL As String
    Dim LaDate As Date
    Dim PrixUnit As Integer
    Dim leNom As String, lePrenom As String

    Fichier = "C:\Base.xls"
    Feuille = "Feuil1"
    
    'Les données à insérer:
    LaDate = CDate("26/05/2006")
    leNom = "NomTest"
    lePrenom = "PrenomTest"
    PrixUnit = 40
    
    Set Cn = New ADODB.Connection
    
    With Cn
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & Fichier & "; ReadOnly=False;"
        .Open
    End With

    'Les données doivent être indiquées dans le même ordre que les champs dans la base de données.
    strSQL = "INSERT INTO [" & Feuille & "$] " _
        & "VALUES (#" & LaDate & "#, " & _
        "'" & leNom & "', " & _
        "'" & lePrenom & "', " & _
        PrixUnit & ")"
    
    Cn.Execute strSQL
    
    Cn.Close
    Set Cn = Nothing
End Sub

Sub ajoutEnregistrement()
    Dim Cn As ADODB.Connection
    Dim Fichier As String, Feuille As String, strSQL As String
    Dim LaDate As Date
    Dim Demandeur As String
    Dim NumCt As String, NomCt As String

    Fichier = "Q:\Envoi des demandes.xls"
    Feuille = "Liste des contrats demandés"

    Set wbSour = ThisWorkbook
    Set wsSour = wbSour.Worksheets("Contrats")
    Set Plage = wsSour.Range("Liste")
    'Les données à insérer:
    LaDate = CDate(Date)

    For Each Cell In Plage
        If Cell.Offset(0, 0).Value <> "" Then
            NumCt = UCase(Cell.Offset(0, 0).Value)
            NomCt = UCase(Cell.Offset(0, 1).Value)
            Demandeur = Application.UserName
        End If
    Next Cell

    Set Cn = New ADODB.Connection

    With Cn
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
                            "DBQ=" & Fichier & "; ReadOnly=False;"
        .Open
    End With

    'Les données doivent être indiquées dans le même ordre que les champs dans la base de données.
    strSQL = "INSERT INTO [" & Feuille & "$] " _
           & "VALUES (#" & LaDate & "#, " & _
             "'" & NumCt & "', " & _
             "'" & NomCt & "', " & _
             Demandeur & ")"

    Cn.Execute strSQL

    Cn.Close
    Set Cn = Nothing
End Sub