Sub cartman()
j = 4
Sheets("feuil1").Select
For i = 4 To Range("A65536").End(xlUp).Row
Sheets("feuil1").Select
code = Cells(i, 1)
nom = Cells(i, 4)
Change = False
Sheets("feuil2").Select
For y = 4 To Range("A65536").End(xlUp).Row
Sheets("feuil2").Select
If Cells(y, 1) = code Then
'pour un meme groupe on va donc comparer les différentes colonnes
For Z = 5 To 27
If Sheets("feuil1").Cells(i, Z) <> Sheets("feuil2").Cells(y, Z) Then
Sheets("feuil3").Select
Cells(j, Z) = "caca"
Change = True
End If
Next Z
If Change = False Then
Sheets("feuil3").Select
Cells(j, 2) = "ca bouge pas man"
End If
End If
Next y
Sheets("feuil3").Select
Cells(j, 1) = code
Cells(j, 4) = nom
j = j + 1
Next i
End Sub