Erreur 5 sur .Recipients

Salut Forum

j'ai ce code que j'utilise depuis un bout déjà qui a toujours très bien fonctionné et depuis 2 jours, la ligne .Recipients me renvoi une erreur 5

Pourtant la variable est bien alimentée car je fais des test dans la boucle ( msgbox t.Text1 ) et ca me renvoi toujours la valeur

L'erreur 5 sur .Recipients

Private Sub CommandButton1_Click()
'On Error Resume Next
    Dim rdv As Outlook.AppointmentItem
    Dim calendrier As Outlook.Folder
    Dim t As Task
    Dim pj As Project
    Dim rdvcheck As Outlook.AppointmentItem

    Set calendrier = dic_calendriers(Me.ComboBox1.Value)

    Set pj = ActiveProject

    For Each t In ActiveSelection.Tasks

       Set rdv = calendrier.Items.Add

        With rdv
            .Subject = t.Name
            .Start = t.Start
            .End = t.Finish
            .Categories = t.Text3
            .Recipients = t.Text1
            .Location = t.Text2
            .MeetingStatus = olMeeting
            .Display
            '.Save
        End With
       ' End If
    Next t

J'ai "réglé" de cette facon: .Recipients.Add (t.Text1)
mais même si ca fonctionne .. je poste quand même la question car je ne comprends pas pourquoi tout d'un coup ca cessé de fonctionner

Merci