Problème VBA extraction

Private Sub Workbook_Open()
For Each E In Range("E2:E200")
If Not E = ("") Then
If E - 60 <= (Date) Then
Dim sup As String
Dim Fichier_Aide As String
Fichier_Aide = "d:\aide.txt"
If E - 60 <= (Date) Then
Columns("A").Select
valeurA = ""
sup = MsgBox("La certification de Mr" & valeurA & "arrive à terme", vbMsgBoxHelpButton + 256 + vbExclamation, "Rappel", Fichier_Aide, 1)
If sup = vbOK Then
MsgBox "Veuillez prévenir le responsable"
' Ajouter la référence Lotus Domino Objects (domobj.tlb)
    Dim EMailPJ As String
    Dim email(1) As String
    'Chemin = ActiveWorkbook.path & "\Report SAV Batch"
    ' Responsables
    email(1) = "bastien.decourt@transport.alstom.com"
    ' Boucle pour envoyer les mails
    For Z = 1 To 1 '
        EnvoiRef = prvSendNotesMail("Demande de certification", "", email(Z), SaveIt:=True)
    Next Z
End If
End If
End If
End If

    Next E
End Sub

...
If E - 60 <= (Date) Then
valeurA = Range("A" & E.Row)
...

Dim Cel as Range

 With objNotesField
        .AppendText "Bonjour,"
        .AddNewLine 2
        .AppendText "La certification de Mr .. n'est plus valide dans ..."
        .AddNewLine 2
        .AppendText "Merci de prévoir une recertification avant la date de fin"
        .AddNewLine 2
        .AppendText ""
        .AddNewLine 2
        .AppendText """"
        .AddNewLine 2
        .AppendText """"
        .AddNewLine 2
        .AppendText """"
        .AddNewLine 2
        .AppendText "Cet e-mail a été généré par un processus automatique."
        '.APPENDTEXT """
        .AddNewLine 2
        .AppendText "Cordialement"
        .AddNewLine 1
        .AppendText "Bastien DECOURT"
        .AddNewLine 1
        .AddNewLine 1
    End With

.AppendText "La certification de Mr " & ValeurA & " n'est plus valide dans ..."

Public ValeurA as String