Sub Nouvelle_macro_de_lepigeonnier()
Dim Collec As New Collection
Dim Cell As Range, Itm As Long
Sheets("Données").Select
selection.AutoFilter
ActiveSheet.Range("$A$1:$R$8205").AutoFilter Field:=6, Criteria1:="."
With Sheets("Courriel")
'For Each Cell In .Range("B2:B" & .Range("C65536").End(xlUp).Row)
For Each Cell In .Range("B2:B" & .Range("B65536").End(xlUp).Row)
On Error Resume Next
Collec.Add Cell, CStr(Cell)
On Error GoTo 0
Next
For Itm = 1 To Collec.Count
Sheets("Données").Select
Debug.Print Collec.Item(Itm)
selection.AutoFilter Field:=8, Criteria1:=Collec.Item(Itm)
' Range("C2:C8220").Select 'et pas: Range("C1:C8220").Select
' PROBLEME : avec selection.Copy tous les formats conditionnels des 8220 lignes
' sont aussi transférés dans 8220 colonnes de Courriel
' selection.Copy
' il serait préférable d'utiliser
Range("C2:C8220").SpecialCells(xlCellTypeVisible).Copy
With Sheets("Courriel")
'.Range("E65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
.Range("C65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End With
'Range("E2").Select
Range("C2").Select
selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Next
End With
Application.CutCopyMode = False
End Sub