Salut Ti, salut oudjat,
en attendant une reponse surement plus pertinente de Ti tu peux essayer ca...
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
For i = 1 To 10 'ligne de 1 a 10
If .Address = "$A$" & i Then
Cells(i, 3) = Cells(i, 3) + 1
Cells(i, 3).Select
End If
If .Address = "$B$" & i Then
Cells(i, 3) = Cells(i, 3) - 1
Cells(i, 3).Select
End If
Next i
End With
End Sub
Ne clique pas trop vite ou tu te retrouveras "dans" la cellule du resultat. C'est bien sur a adapter a tes cellules.
A++, Sylsyl.