Sub Condition_B5() 'cette macro est associée à une procédure événementielle.
If [B5] = "" Then
MsgBox "completer B5 par 1 ou 2"
Range("B5").Select
ElseIf [B5] = 1 Then
Range("C4").Value = "Hello"
Range("C6").ClearContents
ElseIf [B5] = 2 Then
Range("C6").Value = "Bye Bye"
Range("C4").ClearContents
Else
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G5")) Is Nothing Then
Test1
ElseIf Not Intersect(Target, Range("B5")) Is Nothing Then
Condition_B5
End If
End Sub