Créer un Rendez-vous périodique dans Outlook

Bonjour

Je suis en ce moment à créer un code me permettant d'envoyer des rendez-vous à des clients directement à partir de données Excel.

J'ai créé un premier code qui fonctionne :

Sub CreaRDV()

    Dim OlApp As New Outlook.Application
    Dim OlApItem As Outlook.AppointmentItem

    Set OlApItem = OlApp.CreateItem(olAppointmentItem)

With OlApItem
      .MeetingStatus = olMeeting
      .Subject = "Essai de titre"
      .Recipients.Add (Don.Range("T2").Value)
      .Body = "Essai de decription"
      .Start = Don.Range("CN23").Value
      .Display
End With
     Set OlApItem = Nothing
End Sub

première question :

* Ayant 3 calendriers différents dans mon Outlook, je n'arrive pas à sélectionner le calendrier que je veux ?

Quelqu'un aurait une idée ?

J'ai créer un deuxième code pour créer des rendez-vous périodique (après 3 occurences par exemple)

Sub CreaRDVperiodique()

    Dim OlApp As New Outlook.Application
    Dim OlApItem As Outlook.AppointmentItem
    Dim OlPattern As Outlook.RecurrencePattern

    Set OlApItem = OlApp.CreateItem(olAppointmentItem)
    Set OlPattern = OlApItem.GetRecurrencePattern()

    With OlPattern
            .RecurrenceType = olRecursWeekly
            .Occurrences = Don.Range("CE24").Value
            .Duration = 60
    '''        .PatternStartDate = Don.Range("CN23").Value
            .Interval = 1
        End With

With OlApItem
       .MeetingStatus = olMeeting
      .Subject = "Essai de titre"
      .Recipients.Add (Don.Range("T2").Value)
      .Body = "Essai de decription"
      .Start = Don.Range("CN23").Value
      .Display
End With

     Set OlApItem = Nothing
     Set OlPattern = Nothing

End Sub

le code fonctionne, mais pas complétement, il ne me crée pas la périodicité.

Si j'enlève la ligne

      .Start = Don.Range("CN23").Value

de ma boucle With OlApitem, et que je mets dans ma boucle With IlApItem ,

.PatternStartDate = Don.Range("CN23").Value

la fenêtre s'ouvre bien mais pas avec la date demandé, mais la date du jour et la périodicité ne se fait toujours pas.

Est-ce que quelqu'un pourrait m'aiguiller ?

Merci d'avance et bonne soirée

Dominique