With code.Inet1
    .Protocol = icFTP
    .RemotePort = 23
    .AccessType = icDirect
    .URL = "ftp://xxxxxx"
    ecran.Etat.Caption = "attente autorisation"
    .RequestTimeout = 40
 
'---------------------------------------------- ' cette opération est rapide
    .Execute , "DELETE " & " /" & Fichier2
'----------------------------------------------
        Do While code.Inet1.StillExecuting = True
        DoEvents
        ecran.Etat.Caption = "effacement en cours"
        Loop
'----------------------------------------------
    ecran.Etat.Caption = "effacement effectué"
 
'---------------------------------------------- ' par contre ici pour 4 ko ca met facilement 5 minutes
    .Execute , "PUT " & Fichier & " /" & Fichier2
'----------------------------------------------
        Do While code.Inet1.StillExecuting = True
        DoEvents
        ecran.Etat.Caption = "envoi en cours"
        Loop
'----------------------------------------------
    ecran.Etat.Caption = "envoi terminé"
End With