Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$3" Then Exit Sub 'si le changement a lieu ailleurs qu'en B3, sort de la procédure
If Range("B3").Value > 0 Then Range("A30").Select 'si B3 est positif, sélectionne A30
If Range("B3").Value < 0 Then Range("A50").Select 'si B3 est négatif, sélectionne A50
If Range("B3").Value = 0 Then Range("J2").Select 'si B3 est nul, sélectionne J2
End Sub