Erreur lors d'envoi de mail

Bonjour

Une macro me permettait d'envoyer des mails de rappel mais depuis quelques jours bloque sur la ligne CORPS. Je ne comprends pas puisque les cellules renvoyées sont valides. Pouvez vous m'expliquer la cause de cette erreur ?

Sub Mail_educateur()

Dim Rep As Integer

    Application.ScreenUpdating = False

On Error GoTo GestionErreur

With Sheets("Effectif") ' 'indiquer la feuille

DL = .Cells(Rows.Count, "O").End(xlUp).Row
Set ol = CreateObject("Outlook.Application")

    For i = 2 To DL

       If Range("O" & i).Value - 30 <= Date And Range("P" & i).Value = "Non" Then

                    Set olm = ol.CreateItem(0)

                        With olm

                        Select Case Range("V" & i)

                            Case Is = "stella.b":          .To = "stella.b@ab.org"
                            Case Is = "gleciana.d":       .To = "gleciana.d@ab.org"
                            Case Is = "emily.h":              .To = "emily.hue@ab.org"

                        End Select

                        .cc = "sabrina.o@ab.org"
                        .Subject = "Note de 6 mois de " & Sheets("Effectif").Range("C" & i)
                        .Corps = "Bonjour " & vbCrLf & vbCrLf & "Dans le cadre de l'accompagnement de " & Sheets("Effectif").Range("C" & i) & ", né le " & Sheets("Effectif").Range("D" & i) & ", Merci de faire la note des 6 mois avant le " & Sheets("Effectif").Range("O" & i) & vbCrLf & vbCrLf & "Cordialement" & vbCrLf & vbCrLf & "L'équipe éducative du DAMA"
                        .Display
                        .Send
                        End With

        ElseIf Range("O" & i).Value >= Date And Range("P" & i).Value = "Non" Then

                    Set olm = ol.CreateItem(0)

                        With olm

                        Select Case Range("V" & i)

                            Case Is = "stella.b":      .To = "stella.b@ab"
                            Case Is = "gleciana.d":   .To = "gleciana.d@ab.org"
                            Case Is = "emily.h":          .To = "emily.h@ab.org"

                        End Select

                        .cc = "sabrina.o@ab.org"
                        .Subject = "Note de 6 mois de " & Sheets("Effectif").Range("C" & i)
                        .Corps = "Bonjour " & vbCrLf & vbCrLf & "Dans le cadre de l'accompagnement de " & Sheets("Effectif").Range("C" & i) & ", né le " & Sheets("Effectif").Range("D" & i) & ", Merci de faire la note des 6 mois initialement prévue pour le " & Sheets("Effectif").Range("L" & i) & vbCrLf & vbCrLf & "Cordialement" & vbCrLf & vbCrLf & "L'équipe éducative du DAMA"
                        .Display
                        .Send
                        End With

        End If

    Next i

Erreur trouvée : CORPS devient BODY