Sub CompFeuille1Feuille2()
NomDeLaFeuille1$ = "Feuil1" ' < à voir
NomDeLaFeuille2$ = "Feuil2" ' < à voir
Sheets(NomDeLaFeuille1$).Activate: Sheets(NomDeLaFeuille1$).Select
For Each Cell In ActiveSheet.UsedRange
R$ = Sheets(NomDeLaFeuille2$).Cells(Cell.Row, Cell.Column)
' dans ce test on peut modifier exemple: Cell.Value = R$
If Cell.Value <> R$ Then
Adres1$ = Cell.Address
Adres2$ = Sheets(NomDeLaFeuille2$).Cells(Cell.Row, Cell.Column).Address
M$ = NomDeLaFeuille1$ & ": Value dans " & Adres1$ & "= " & Cell.Value & vbLf & _
NomDeLaFeuille2$ & ": Value dans " & Adres2$ & "= " & R$
MsgBox M$
End If
Next
End Sub