Concatener 2 rows dans plusieurs feuil

Bonjour à tous,

je veux faire une concatenation des données sur plusieurs feuil, ma macro marche sur les feuil avec "nom3" , "nom4", mais ne marche pas dans la feuile 1 et 2 ,voici mon code :

With wb
     Sheets("nom1").Select
     Sheets("nom2").Select
     Sheets("nom3").Select
     Sheets("nom4").Select

  Set Rng1 = Rows(1).Find("data1")
  Set Rng2 = Rows(1).Find("data2")

  Set RngDest1 = Rows(1).Find("destination")

  If Not RngDest1 Is Nothing And Not Rng1 Is Nothing And Not Rng2 Is Nothing Then
       ColRng1 = Rng1.Column
       ColRng2 = Rng2.Column

   ColDest1 = RngDest1.Column

   For i = 2 To Cells(Rows.Count, ColRng2).End(xlUp).Row
       Cells(i, ColDest1) = Cells(i, ColRng1) & Cells(i, ColRng2)

     Next i

    End If

End With

merci d'avance