Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Macro par DAN pour Feutrine le 27/10/06
If Not Application.Intersect(Target, Range("plagetype")) Is Nothing Then
Select Case Target.Value
Case Is = "RENO"
MsgBox "Tata"
Case Is = "Survitrage"
MsgBox "Titi"
End Select
End If
End Sub