Bonjour,
Je réalise une macro qui crée une liste de destinataire en fonction du service selectionné (pour envoi mail lotus notes). Les mails sont entrés sans des cellules d'une feuille excel nommée Personne.
J'ai donc crée ce code où je souhaite mettre les adresse mails dans ma variable tableau Dest(). Au moment de l'exécution j'ai un bug : erreur 1004.

Avez vous une idée? Ai je fais une erreur?
Merci d'avance
Voici le code
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
38
39
40
41
42
43
 
Option Explicit
Public LAOMax, LAOMin As Long
Public Nom_Fichier, NomRep, Chemin, DossierParent, Demandeur, Service As String
Dim LCP As Boolean
Dim Dest() As Variant
Public Sub Destinataires()
Dim i, j  As Byte
 
Service = Sheets("Formulaire").Range("C4").Value
 
'Procédure permettant de créer la liste de destinataire des mails
With Worksheets("Personne")
 
Select Case Service
    Case "R&D"
        i = .Range("j7").End(xlToRight).Column
        j = i - 10
        ReDim Dest(j)
        Dest = .Range(Cells(7, 10), Cells(7, i)).Value
    Case "Logistique"
        i = .Range("j3").End(xlToRight).Column
        j = i - 10
        ReDim Dest(j)
        Dest = .Range(Cells(3, 10), Cells(3, i)).Value
 
    Case "Production"
        i = .Range("j5").End(xlToRight).Column
        j = i - 10
        ReDim Dest(j)
        Dest = .Range(Cells(5, 10), Cells(5, i)).Value
 
    Case "STEP"
        i = .Range("j9").End(xlToRight).Column
        j = i - 10
        ReDim Dest(j)
        Dest = .Range(Cells(9, 10), Cells(9, i)).Value
 
End Select
 
End With
 
End Sub