Microsoft 365 Mettre une alerte dans un calendrier autre que la calendrier par défaut de outlook

Dim OkApp As New Outlook.Application
Dim Rdv As Outlook.AppointmentItem
 Set Rdv = OkApp.CreateItem(olAppointmentItem)
          
            With Rdv
                .MeetingStatus = olMeeting
                .Subject = "texte " & ComboBox1
                .Body = ComboBox1
                .Location = "là"
                .Start = TextBox1 & " " & TextBox2 & ":00"
                .End = TextBox1 & " " & TextBox3 & ":00"
                .ReminderMinutesBeforeStart = 1440 * 7 ' Une semaine avant
                .Save
            End With
      
        Set OkApp = Nothing