Private Sub MailAutomatique()
Dim Pl As Range, Action As Range, Choix(), i&
'Dim OLApplication As Outlook.Application, OLMail As Outlook.mailItem
'constitution des choix
Set Pl = Sheets("Feuil1").Range("A1").CurrentRegion
MsgBox Pl.Address
Set Action = Range(Pl(1, Pl.Columns.Count), Pl(Pl.Rows.Count, Pl.Columns.Count))
MsgBox Action.Address
MsgBox Application.WorksheetFunction.Max(Action)
For i = 2 To Pl.Rows.Count
MsgBox Pl(i, 1).Address
MsgBox Pl(i, 2).Address
ReDim Preserve Choix(1 To Application.WorksheetFunction.Max(Action))
'Debug.Print Action(i, 1)
Choix(Action(i, 1).Value) = Choix(Action(i, 1).Value) & Pl(i, 1) & " " & Pl(i, 2) & ", "
Next i
MsgBox UBound(Choix)
MsgBox Choix(1)
MsgBox Choix(2)
End Sub
DE]