envoi mail bug

Bonjour le forum,

Je sollicite votre aide une fois de plus, j’ai deux problèmes avec la macro ci-dessous

Je ne comprends pas pourquoi elle bug (ligne rouge), alors que je m’en sers dans un autre fichier !
Mon deuxième problème s'est la ligne verte, j'arrive pas écrire le fait quelle doit faire, pour renommer,reference à la cellule L12.

J’espère être claire, pouvez- vous me mettre sur la voie (ci joint le fichier)

merci

Sub transfer1()

'Créer copie onglet
Sheets("DPE").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\temp.xls"

ActiveWindow.Close

'Envoi mail
Dim olapp As Outlook.Application
Range("L3").Select

Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Value
msg.Subject = Range("L12").Value
msg.Body = Range("L13").Value & Chr(13) & Chr(13) & Range("L14").Value & Chr(13) & Chr(13)
msg.Attachments.Add Source:=ActiveWorkbook.Path & "\" & nf
msg.Send

Loop
End Sub