Dim rng As Range, maPlage As Range
Dim OutApp As Object
Dim OutMail As Object
Dim NomFichier As String, Destinataire As String
Dim DernLigne As Long, DernColonne As Integer
NomFichier = Sheets("Mail").Range("G5").Text
Destinataire = Sheets("Mail").Range("G9").Text
DernLigne = Sheets(NomFichier).Range("A" & Rows.Count).End(xlUp).Row
'dernière colonne ligne 1
DernColonne = Sheets(NomFichier).Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Set maPlage = Sheets(NomFichier).Range(Cells(1, 1), Sheets(NomFichier).Cells(DernLigne, DernColonne))
Set rng = Nothing
On Error Resume Next
Set rng = Sheets(NomFichier).Range(maPlage).SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If rng Is Nothing Then
MsgBox "Erreur de sélection" & _
vbNewLine & "Contacter OIIR", vbOKOnly
Exit Sub
End If