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 : Sélectionner tout - Visualiser dans une fenêtre à part
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