Bonjour à tous,
Ma demande se trouve dans le code :
En vous remerciant.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Filtrage()
    Sheets("Base").Select
        Columns("I:L").AutoFilter
        Selection.AutoFilter Field:=1, Criteria1:="<>-", Operator:=xlAnd     'masquer lignes comportant - (un tiret)
 
          ' Ici, je souhaiterai avoir un message invitant à sélectionner les adresses mail.
          ' Puis une fois la sélection effectuée, poursuite de la macro.
 
        Columns("J:J").AutoFilter
        Selection.AutoFilter Field:=1, Criteria1:="X"
'copier coller des adresses mail Cc
    Sheets("MAIL").Select
        If [D2] <> "" Then
        [MailCc].ClearContents
        If [E2] <> "" Then
        [MailCc].ClearContents
    End If
    End If
    [IdentiteMail].Copy: [CollerAdresseMailCc].PasteSpecial xlValues
        With Selection.Font
            .Name = "Times New Roman"
            .Size = 10
        End With
                Selection.AutoFilter
    'sup filtre
    Columns("L:L").AutoFilter
    Columns("L:L").AutoFilter Field:=1, Criteria1:="X"
    'copier coller des adresses mail Cci
    If [D2] <> "" Then [CollerAdresseMailCci] = ClearContents
    [IdentiteMail].Copy: [CollerAdresseMailCci].PasteSpecial xlValues
        With Selection.Font
            .Name = "Times New Roman"
            .Size = 10
        End With
    'sup filtre
    Selection.AutoFilter
End Sub