Problème dans un code macro

Bonjour,
J'ai un problème dans mon codage mais je ne vois pas ce qui va pas. Mon macro prend les cellules de la colonne "A" de la feuille "MOI" regarde si dans la colonne "A" de la feuille "TOI", les cellules sont différentes. Si c'est le cas, il sélectionne les lignes des cellules différentes de la feuille "MOI" et les copies à la suite de mon tableau dans la feuille "TOI"
Voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Option Explicit Dim DerniereLigne As Integer Dim i As Integer Dim DerniereLigne2 As Integer Dim l     Sub test()   Application.ScreenUpdating = False   Sheets("MOI").Select DerniereLigne = Range("A65536").End(xlUp).Row   For i = 2 To DerniereLigne If Sheets("TOI").Cells(i, 1) <> Sheets("MOI").Cells(i, 1) Then Sheets("Moi").Cells(i, 1).Activate 'Problème à ce niveau la Rows(i).Select Selection.Copy Sheets("TOI").Select If Cells(2, 1).Value = "" Then DerniereLigne2 = 2 Else DerniereLigne2 = Range("A2").End(xlDown).Row + 1 End If Cells(DerniereLigne2, 1).Select ActiveSheet.Paste Else: Cells(i, 1).Activate Rows(i).Select End If Next   Application.ScreenUpdating = True   End Sub

---

Merci d'avance pour votre aide

Code:

---

Sheets("Moi").Cells(i, 1).Activate 'Problème à ce niveau la

---

Peut-être en 2 temps :

...

Code:

---

1 2	Sheets("Moi").Activate Range("A" & i).Select

---

...

Avec ce code, il me copie seulement la première ligne dont la cellule de la feuille "MOI" est différente de toutes les cellules de la feuille "TOI". Qu'est qu'il faut modifier pour qu'ils fonctionnent pour toutes les lignes dont les cellules de la colonne A de "MOI" sont différentes des cellules de la colonne A de "TOI?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Option Explicit Dim DerniereLigne As Integer Dim i As Integer Dim DerniereLigne2 As Integer Dim l     Sub test()   Application.ScreenUpdating = False   Sheets("MOI").Select DerniereLigne = Range("A65536").End(xlUp).Row   For i = 1 To DerniereLigne If Sheets("TOI").Cells(i, 1) <> Cells(i, 1) Then Sheets("Moi").Activate Range("A" & i).Select Rows(i).Select Selection.Copy Sheets("TOI").Select If Cells(2, 1).Value = "" Then DerniereLigne2 = 2 Else DerniereLigne2 = Range("A2").End(xlDown).Row + 1 End If Cells(DerniereLigne2, 1).Select ActiveSheet.Paste End If Next   Application.ScreenUpdating = True   End Sub

---