Sub EnvoiCondition()
If Range("A4") = "" Then
'
Else
If WorksheetFunction.VLookup(Range("A4"), Sheets("Codes").Range("A2:D36"), 3, False) = "" Then
Adresse = WorksheetFunction.VLookup(Range("A4"), Sheets("Codes").Range("A2:D36"), 4, False)
ThisWorkbook.PrintOut ???:=Adresse
Application.ActivePrinter = "DelFax sur Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"DelFax sur Ne03:", Collate:=True
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Else
Dim Adresse As String
Adresse = WorksheetFunction.VLookup(Range("A4"), _
Worksheets("Codes").Range("A2:D36"), 3, False)
ThisWorkbook.SendMail Recipients:=Adresse
End Sub