problème dans base de donnée incrémentielle

[lobinho01]

Bonjour,
la commande ci dessous me permet de copier des numéros de plans et dates dans un fichier appelé base.
Mon problème est que si je rappelle un plan et que je l'enregistre à nouveau, il crée une nouvelle ligne au lieu de remplacer l'ancienne.
Je suis sur que c'est simple, mais je suis tellement doué que ....
merci beaucoup

Public Function Parcourir(Cel)
Range(Cel).Activate
En_colonne = ActiveCell.Column
En_ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_ligne, En_colonne).Activate
En_ligne = En_ligne + 1
Wend
Parcourir = ActiveCell.Address
End Function
--------------------------------------------
Sub numero()
Application.ScreenUpdating = False
Dim p1, p2, p3, p4, NUMER As Range
Set p1 = Range("I2")
Set p2 = Range("B3")
Set p3 = Range("I1")
Set p4 = Range("B2")
p1.Select
Selection.Copy
Windows("BASE.XLS").Activate
Parcourir ("A2")
li = ActiveCell.Row
Range("A" & li).Activate
Selection.PasteSpecial Paste:=xlValues
Windows("bernard2.xls").Activate
p2.Select
Selection.Copy
Windows("BASE.XLS").Activate
Range("B" & li).Activate
Selection.PasteSpecial Paste:=xlValues
Windows("bernard2.xls").Activate
p3.Select
Selection.Copy
Windows("BASE.XLS").Activate
Range("C" & li).Activate
Selection.PasteSpecial Paste:=xlValues
Windows("bernard2.xls").Activate
p4.Select
Selection.Copy
Windows("BASE.XLS").Activate
Range("D" & li).Activate
Selection.PasteSpecial Paste:=xlValue
Windows("bernard2.xls").Activate
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub