Macro

Bonjour,

Je viens de découvrir la macro et je souhaite automatisé l'envoi d'un document une fois celui ci compléter. J'ai écris ce que je pensais être le code mais cela ,e marche pas. Quelqu'un pourrait il m'aider ?
Merci d'avance.

"feuil5"
        derlig = Range("C65")
        For L = 1 To derlig
            strbody = ""
            If Range("A65") = "complet" Then
                Set OutApp = CreateObject("Outlook.Application")
                Set OutMail = OutApp.CreateItem(0)
                strbody = .Range("A" & L) & " et " & .Range("B" & L) & " sont disponibles"
                'On Error Resume Next
                With OutMail
                    .To = "xxxxxx@xxxxx.fr"
                    .CC = ""
                    .BCC = ""
                    .Subject = "A vérifier"
                    .Body = strbody
                    .Display 'visu @Mail
                    '.Send       '
                End With
                On Error GoTo 0
            End If
            Set OutMail = Nothing
            Set OutApp = Nothing
        Next L
    End With
End Sub