Private Sub WorkSheet_Change(ByVal Target As Range)
If Target.Address = "$B$8" Then Affiche Target.Offset(, 1).Text, 1
If Target.Address = "$G$13" Then Affiche Target.Text, 2
End Sub
Sub Affiche(t As String, n As Byte)
Dim p As Object
For Each p In Me.Pictures
If p.Name Like "*" & n Then
p.Visible = False
If p.Name = t & n Then p.Visible = True
End If
Next
End Sub