Re : Evenement et 2 condition?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TablCode
Dim Email_Subject, Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
TablCode = Array(31, 34, 36, 18, 99)
TablTargetColumns...