Complément pour macro

Bonjour a l'ensemble du forum.
Hier Bernard ma résolu un problème avec la macro ci-dessous, mais il me manque encore quelque chose.
Cette macro me permet de copier et de trier, la colonne A de la feuille 'gestion' vers la feuille 'feuille de calcul' colonne A du même fichier, cette copie s'effectue vers un autre fichier planification colonne B de la feuille 'rupture'.
Ici il me manque un petit quelque chose, la colonne A de la feuille 'rupture' me sert a donner des ordre 1 2 3 4 5 ect.
je ne voudrais pas que ses ordres soit decalés lorsque j'utilise la macro.
Pour une meilleure compréhension :
a10 =3 B10= toto imaginons que j'utilise la macro et que un nouveau code par exemple' fifi' ce possitionne sur une des lignes supérieurs, a ce moment il faut que a11=3 b11 = toto.
Jespere avoir été assez clair la macro est en dessous.
Si une personne pouvez me donner un coup de main merci
A+ Marion



Private Sub CommandButton2_Click()
'PERMET DE COPIER LES VALEURS DE GESTION A RUPTURE
Application.ScreenUpdating = False
Workbooks("GESTION.XLS").Activate
Sheets("GESTION").Select
Workbooks("GESTION.XLS").Sheets("GESTION").Rows("6 :400").Sort Key1:=Range("A6"), Order1:=xlAscending
Sheets("GESTION").Range("A6:A400").Copy Sheets("FEUILLE DE CALCUL").Range("A5")
'ça bug a partir de là
Sheets("GESTION").Range("A6:A400").Copy Workbooks("PLANIFICATION.xls").Sheets("RUPTURE").R ange("B4")
Workbooks("PLANIFICATION.xls").Activate
Sheets("RUPTURE").Select
Application.ScreenUpdating = True
End Sub