Sub Compte_Val_Diff()
Dim Val1 As Variant
Dim Val2 As Variant
Dim Nb As Integer
Nb = 0
j = 0
Range('A1').Select
For i = 1 To Range('A65536').End(xlUp).Row
Val1 = ActiveCell.Value
Val2 = Selection.Offset(1, 0).Value
If Val1 <> Val2 Then
Nb = Nb + 1
Selection.Offset(1, 0).Select
Else
Selection.Offset(1, 0).Select
End If
j = j + 1
Next i
MsgBox 'Il y a ' & Nb & ' valeurs différentes'
End Sub