Sub Tri_filtres()
Dim Plage, Code, C As Range
Application.ScreenUpdating = False
With Sheets("contacts")
If .FilterMode Then .ShowAllData
Set Plage = .Range("A1:G" & .Cells(Rows.Count, "A").End(xlUp).Row)
Set Code = .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)
derligne = Sheets("contacts").Cells(Rows.Count, 1).End(3).Row
n = 1
For Each C In Code
'---copie si premier passage ou non doublon
If n = 1 Then
Sheets("envoi").Range("a2:g1000").ClearContents
Plage.AutoFilter Field:=1, Criteria1:=C
Plage.SpecialCells(xlCellTypeVisible).Copy Sheets("envoi").[a1]
Call mailto '---autre procédure pour envoi tableau filtré par outlook
End If
'--- compare la valeur de la ligne du dessous pour incrémenter ou pas
If Sheets("contacts").Cells(C.Row + 1, 1).Value = C Then
n = n + 1
Else
n = 1
End If
Next
End With
Application.ScreenUpdating = True
End Sub