Sub newtest()
Dim Plage As Range, c As Range
Sheets(3).Select
Sheets(3).Range("A1").Select
Set Plage = Sheets(1).Range("A1", Sheets(1).Range("A65536").End(xlUp))
i = 0
For Each c In Plage
i = i + 1
If WorksheetFunction.CountIf(Plage, Sheets(2).Cells(i, 1)) <> 0 Then
'=NB.SI(Feuil1!1:1048576;Feuil3!A1)
' = 1 qd la ligne i existe
If (Sheets(1).Cells(i, 6)) <> (Sheets(2).Cells(i, 6)) Then
'Erreur de ma part dans la 2eme partie pas i mais un j ??
Sheets(3).Cells(i, 2) = i
'Erreur de ma part : manque encore une !
ActiveCell.Value = Sheets(2).Cells(i, 1).Value
'se decale à droite de 3
ActiveCell.Offset(0, 3).Select 'row, col
ActiveCell.Value = Sheets(2).Cells(i, 6).Value
'se decale à gauche de 3 cellule
ActiveCell.Offset(0, -3).Select 'row, col
'se decale d'une ligne en bas
ActiveCell.Offset(1, 0).Select
End If
End If
Next c
End Sub