Salut Fredo, salut le forum,
Essaie comme ça :
Windows("indicateur_log(tests).xls").Activate
Range("AE2:AE20000").Select
Dim compt1
compt1 = 0
For Each c In Selection
If c.Value > 0 And c.Offset(0, 1).Value < 0 Then
compt1 = compt1 + 1
End If
Next c
À plus,
Robert