Option Explicit
Private Sub Worksheet_Activate()
Dim R As Range, C As Range
For Each R In [tblProjCredits[NoProjet]]
For Each C In [tblGestions[No DDT]]
If C = R And C(1, 7) = R(1, 2) Then _
C(1, 8) = -(C(1, 4) >= R(1, 3) And C(1, 4) < R(1, 4))
Next
Next
End Sub