Bonjour moi et le forum,
Par exemple comme ceci :
Sub macro()
x = ("O1")
y = ("a1")
z = ("AC1")
For i = 0 To 12
If Range(x).Offset(0, i) = Range(y).Offset(0, i) Then
Range(z).Offset(0, i) = 1
Else
Range(z).Offset(0, i) = 0
End If
Next i
End Sub
Slts
wally