Sub signe_prod()
Dim a As Integer
Dim b As Integer
a = InputBox("1ere valeur")
b = InputBox("2eme valeur")
If (a > 0 And b < 0) Or (a < 0 And b > 0) Then
MsgBox ("negatif")
Else:
MsgBox ("positif")
End If
End Sub