Dim I As Integer
Dim j As Integer
Dim k As Integer
Dim strName As String
Dim Recipient() As String
Dim ccRecipient() As String
Dim strSendTo As String
Dim strCopyTo As String
Dim intCount As Integer
Dim intCount2 As Integer
Dim intPos As Integer
'Récupération des nom déjà saisis...
strSendTo = gstrSendTo
strCopyTo = gstrCopyTo
'SendTo
intPos = InStr(strSendTo, gcListSep)
I = 0
ReDim Recipient(I) As String
While intPos > 0
ReDim Preserve Recipient(I) As String
Recipient(I) = VBA.Left(strSendTo, intPos - 1)
I = I + 1
strSendTo = VBA.Mid(strSendTo, intPos + 1)
intPos = InStr(strSendTo, gcListSep)
Wend