Remplir calendrier outlook depuis Excel

Bonjour la communaute

Est il possible à partir d 'une base de données excel de remplir un agenda outlook ?

comment doit on faire ?

merci pour vos réponses

nouveau code crée et celui ci me met bien les rendez vous dans outlook mais quand je veux en ajouter celui ci me les remets en double?

d'ou peut venir le probleme?

pourrais je rajouter un bouton de commande pour a chaque prise de rendez vous l'ajouter ?

Sub CreateAppointment()

      Set olOutlook = CreateObject("Outlook.Application")
      Set Namespace = olOutlook.GetNamespace("MAPI")
      Set oloFolder = Namespace.GetDefaultFolder(9)

      LastRow = Cells(Rows.Count, 1).End(xlUp).Row

      For i = 2 To LastRow

           Description = Cells(i, 1).Value
           StartDate = Cells(i, 4).Value

           Set Appointment = oloFolder.Items.Add

           With Appointment
                .Start = StartDate
                .Subject = Description
                .Save

           End With

    Next i

      End Sub