Sub EnvoiPlages()
Dim ligne1 As Integer
Dim ligne2 As Integer
ligne1 = 6 ' Plus tard, je souhaite demander a l'utilisateur de renseigner ces champs
ligne2 = 8 ' par Userform, pour la comprehension, elles sont deja renseignees ici.
Set letout = Union(Range("B4:L4"), Range("B" & ligne1 & ":" & "L" & ligne2))
ActiveSheet.Range("letout").Select ' <== ERREUR
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Dear Sir," & vbLf & vbLf & "You can see my report as following:" & vbLf & vbLf
.Item.To = "blabla@blablagroup.net"
.Item.Subject = "Report"
.Item.Send
End With
End Sub