Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation

Option Explicit
    Dim i As Integer
    Dim date_tâche As Range, lib_tâche As Range, type_tâche As Range, Personne_BE As Range, date_tâche_fin As Range, Avancement As Range
    
    Dim Objet_Tache As Range
        
    Dim olApp As Object, tâche As Object
    Dim périodicité As Object
    Dim destinataire As String
    
        ' Déclarer les variables
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim wbTravail As Workbook
    Dim wsTravail As Worksheet

Sub créa_tâche()
    
    Dim derl As Long
    
    ' Initialiser Outlook
    destinataire = "xxxx@xxxx.fr"
    Set olApp = CreateObject("Outlook.Application")
    'Set olApp = Outlook.Application
    
     ' Définir le classeur source
    
    
    Set wbSource = Workbooks.Open("\\SDC18-VM-DC\general\5-Services\05-BUREAU D'ETUDES\Organisation du BE Plannification des tâches V2.xlsx") ' fichier dans le reseau Organisation du BE Plannification des tâches V2.xlsx
    ' Définir la feuille source
    Set wsSource = wbSource.Sheets("Tâches BE")
    
    derl = wsSource.Range("A" & Rows.Count).End(xlUp).Row 'derniere ligne du fichier source
    
      For i = 2 To derl
            '-- affectation des champs
            'Objet de la tache
            Set Objet_Tache = wsSource.Cells(i, "D") & " " & wsSource.Cells(i, "G")
            
            
            Set type_tâche = Objet_Tache 'wsSource.Cells(i, "D") '& " " & wsSource.Cells(i, "G") 'type_tache= Objet de la tache wsSource.Cells(i,colonne).Value verifier la position dans le classeur organisation BE + feuille tache
                'Objet de la tache = N°affaire(D) + Client(F) + Machine(E) + Tache(G)
            'Corps de la tache
            Set lib_tâche = wsSource.Cells(i, "N") '& " Nombre d'heures à passer : " & wsSource.Cells(i, "H") 'lib_tache=Corps de la tache
                'Corps de la tache = Commentaire(N) + nb heure à passer(H)
            'date de debut de la tache
            Set date_tâche_fin = wsSource.Cells(i, "I")  'Jour debut
                'date de debut = date d'enregistrement
                'date de fin (echéance .dueDATE) = Date Objectif
            'Personne qui fait la tache
            Set Personne_BE = wsSource.Cells(i, "B")
            
            Set Avancement = wsSource.Cells(i, "J")
                
            'faire un test sur "xxxxx" dans la colonne Personne BE pour pour générer la tache then
            
            '-- génération d'une tâche selon conditions
            If lib_tâche.Value <> Empty _
            And Avancement.Value < 100 _
            And IsDate(date_tâche_fin.Value) _
            And Personne_BE.Value = "xxxxxxx" _
            And Personne_BE.Comment Is Nothing Then 'verifie qu'il n'y a pas de commentaire sue la celulle du nom
              
                '-- génération tâche avec rappel
                Set tâche = olApp.CreateItem(3) '3 représente une tâche
                With tâche
                    .Subject = type_tâche
                    .Body = lib_tâche
                    
                    .DueDate = date_tâche_fin.Value
                    '.DueDate = DateAdd("ww", 1, .StartDate)             'échéance = date de début + 1 semaine
                    .StartDate = DateAdd("ww", -2, .DueDate)            'date début de la tâche date de fin - 2 semaines
                    .Status = 1                                         '0 = non démarré, 1 = en cours, 2 = terminé, 3 = en attente, 4 = différé
                    '.DateCompleted                                     'date de fin force status à 2
                    .Importance = 1                                     '0 = basse, 1 = normal, 2 = haute
                    '.contactNames
                    .ReminderSet = True                                 'activation rappel
                    .ReminderTime = .StartDate - 7 + TimeValue("9:00AM")   'date de rappel si activé
                    Set périodicité = .GetRecurrencePattern()   'récurrence tâche par défaut toutes les semaines
                    périodicité.NoEndDate = False              'fin de la tâche après répétitions
                    périodicité.Occurrences = 1                 'nombre de répétitions de la tâche
                    .Save
                 End With
                
                '-- ajout commentaire date de création de la tâche
                Personne_BE.AddComment "tâche crée le " & Date
            End If 'lib_tache.value ....
          
        Next i
        
        Set olApp = Nothing
        
End Sub