With Sheets("GENERAL")
On Error Resume Next
For Each cell In .Columns("D").Cells.SpecialCells(xlCellTypeConstant s)
If cell.Value Like "?*@?*.?*" And _
LCase(.Cells(cell.Row, "I").Value) = "@" Then
ReDim Preserve tableauDestinataires(nbDestinataires)
tableauDestinataires(nbDestinataires) = cell.Value