Mise à jour

Bonjour,
s'il vous plait j'ai un petit soucis c'est que quand je fais une mise a jour d'un fichier excel qui exporte vers un autre ,cet mise a jour et realiser avec succes elle ecrase les anciennes données, mais elle ecrase juste le nombres de ligne quel a dans le nouveau fichier , et par la suite on a les nouvelles données plus les anciennes non ecraser , au lieu quel soit ecraser par vide ou "".
Quel fonctions puis je utiliser pour ecraser tout et avoir juste les nouvelles donnés.

Sub Traitement()

Windows("Projet1.xls").Activate
ActiveWorkbook.Save

i = 2

While (Cells(i, 109) <> "")

tache_princ = Cells(i, 1)
tache = Cells(i, 109)
ressource = Cells(i, 110)

Cells(i, 111) = Replace(Cells(i, 111), "j", " ")
Cells(i, 111) = Replace(Cells(i, 111), "o", " ")
Cells(i, 111) = Replace(Cells(i, 111), "u", " ")
Cells(i, 111) = Replace(Cells(i, 111), "r", " ")
Cells(i, 111) = Replace(Cells(i, 111), "s", " ")
charge_ini = Cells(i, 111)

activite = Cells(i, 112)

Cells(i, 113) = Replace(Cells(i, 113), "j", " ")
Cells(i, 113) = Replace(Cells(i, 113), "o", " ")
Cells(i, 113) = Replace(Cells(i, 113), "u", " ")
Cells(i, 113) = Replace(Cells(i, 113), "r", " ")
Cells(i, 113) = Replace(Cells(i, 113), "s", " ")
reel = Cells(i, 113)

Cells(i, 114) = Replace(Cells(i, 114), "j", " ")
Cells(i, 114) = Replace(Cells(i, 114), "o", " ")
Cells(i, 114) = Replace(Cells(i, 114), "u", " ")
Cells(i, 114) = Replace(Cells(i, 114), "r", " ")
Cells(i, 114) = Replace(Cells(i, 114), "s", " ")
restant = Cells(i, 114)

Windows("CEXP.xls").Activate

Cells(i + 4, 1) = tache_princ
Cells(i + 4, 2) = tache
Cells(i + 4, 3) = ressource
Cells(i + 4, 4) = activite
Cells(i + 4, 5) = charge_ini
Cells(i + 4, 10) = reel
Cells(i + 4, 11) = restant

Windows("Projet1.xls").Activate

i = i + 1


Wend

End Sub

Merci pour votre aide