Sub EnvoiCondition()
Dim Adresse As String 'Les déclarations de variables au début
Dim Table As Range
Dim Valeur
Set Table = Sheets("Codes").Range("A2:D36") 'Définition de la plage de données
Valeur = Range("A4").Value 'Valeur à rechercher
If Valeur <> "" Then
On Error GoTo ErrH
Adresse = WorksheetFunction.VLookup(Valeur, Table, 3, False)
On Error GoTo 0
If Adresse <> "" Then
'Envoyer un mail
ThisWorkbook.SendMail Recipients:=Adresse
Else
'Envoyer un fax
ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
ActivePrinter:="DelFax sur Ne03:", Collate:=True
End If
End If
Exit Sub
ErrH:
MsgBox "La valeur " & Valeur & " n'existe pas dans la table."
End Sub