Comment supprimer une valeurs d'une cellule d'un autre fichier

Sub exportDonneeDansCelluleClasseurFerme()
    Dim Cn As ADODB.Connection
    Dim Cd As ADODB.Command
    Dim Rst As ADODB.Recordset
    Dim Fichier As String
    
    Fichier = "C:\Users\name\Documents\TestNode2\code2\output.xlsx"
    
    Set Cn = New ADODB.Connection
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";" & _
        "Extended Properties=""Excel 8.0;IMEX=1"""
    
    Set Cd = New ADODB.Command
    Cd.ActiveConnection = Cn
    Cd.CommandText = "SELECT * FROM [Feuil1$A1:A1]"
    
    Set Rst = New ADODB.Recordset
    Rst.Open Cd, , adOpenKeyset, adLockOptimistic
    Rst(0).Value = ""
    Rst.Update
    
    Cn.Close
    Set Cn = Nothing
    Set Cd = Nothing
    Set Rst = Nothing
End Sub

' avec Screen updating a false,  le tout devrait être invisible comme voulu, et aussi plus rapide
Application.ScreenUpdating = False

Dim wb As Workbook
Dim ws As Worksheet
Dim chemin as string 

'** ici tu dois changer  output.xlsx pour le chemin complet pour trouver le fichier
Chemin = "c:\quelquepart\surledisquedur\output.xlsx"  

' on ouvre
Set wb = Workbooks.Open(chemin)
Set ws = wb.Worksheets("Feuil1")

'On Enregistre ce qu'on veut dans notre feuille 
ws.Range("C3").Value = "blah blah"

'on enregistre et on ferme
wb.Save
wb.Close

'On réactive screenupdating
Application.ScreenUpdating = True