Sub Envoi_Fichier()
Dim n As Byte
With Sheets("BASE")
.Select
n = 3 - Application.CountA(.[D2:F2])
If n Then
MsgBox Trim(IIf(.[D2] = "", "D2 ", "") & IIf(.[E2] = "", "E2 ", "") & IIf(.[F2] = "", "F2", "")) & " non renseignée" & IIf(n > 1, "s !", " !"), 48, "Plage D2:F2"
Exit Sub
End If
'suite du code
End With
End Sub