Copier ligne vba

Bonjour alors voila le but de mon apllication est de fusionner deux feuilles qui ont en commune un code barre,
alors je copie ma premiere feuille sur une nouvelle et je la complete avec les infos supplementaires (sur ma deuxieme feuille).
Pour l'instant je reussis a trouver le code barre et le copier !
Mais comment faire pr copier la ligne entière ???
Voici mon code

  
i = 2

'MsgBox (ActiveSheet.Cells.Range(("A" & i)))

While "" <> Sheets("Statistiques").Cells.Range(("A" & i))
        
    ' Calculer Position du code barre
    Dim celCodeBarreExport As String
    celCodeBarreExport = cmbNumeroCarteExport.Value
    Dim NumeroCodeBarreExport As String
    NumeroCodeBarreExport = Sheets("export").Cells.Range((celCodeBarreExport & i))
        
   ' Calculer Position libre colonne nouvelle
    Dim celPositionNouvelleColonne As String
    Dim lngValeur As Long, Boite As Variant
    Dim strAddresse As String, lngBoucle As Long
    
    lngValeur = Sheets("Statistiques").Range("AT1").End(xlToLeft).Column
    strAddresse = Cells(1, lngValeur).Address
    Boite = Split(strAddresse, "$")
    celPositionNouvelleColonne = Boite(1)
    
    MsgBox celPositionNouvelleColonne


    
 
  
    
    'Chercher le code barre dans LECTEUR
    Sheets("Lecteur").Select
    Dim celCodeBarreLecteur As String
    celCodeBarreLecteur = cmbNumeroCarteLecteur.Value
    MsgBox (ActiveSheet.Cells.Range((celCodeBarreLecteur & i)))
    
    j = 2
    
    While "" <> Sheets("Lecteur").Cells.Range(("A" & j))
    
        'Variable du numéro de carte dans le lecteur
        Dim NumeroCodeBarreLecteur As String
        NumeroCodeBarreLecteur = Sheets("lecteur").Cells.Range((celCodeBarreLecteur & j))
    
        ' test égalité des codes barre
        If NumeroCodeBarreExport = NumeroCodeBarreLecteur Then
        'copie du code barre dans la derniere colonne
         Sheets("statistiques").Cells.Range((celPositionNouvelleColonne & i)) = Sheets("Lecteur").Range((celCodeBarreLecteur & j)).Value
                 MsgBox (Sheets("Statistiques").Range((celPositionNouvelleColonne & i)))
        Else

         'le code n'a pas été trouvé, il est copié dans Anomalies
            'Sheets("Anomalies").Range("A1").Value = NumeroCodeBarreLecteur
          
        End If

                j = j + 1
    Wend
    
i = i + 1

 

Meci de votre reponse !

Configuration: Windows XP
Internet Explorer 6.0