VBA excel Erreur 462

Bonjour,

J'ai une erreur dans mon code au niveau de
WrdDoc.Selection.TypeText Variable:=total

Si quelqu un a une idée je suis preneur

Sub ajout_presse()

Dim ligne As Integer
Dim WrdApp As Object
Dim WrdDoc As Object
Dim total As String
Dim Revue As String
Dim Titre As String
Dim description As String
Dim note As Integer
Dim id As Double

ligne = ActiveCell.Row

Titre = Cells(ligne, 3).Value
note = Cells(ligne, 5).Value
description = Cells(ligne, 7).Value

Set WrdApp = CreateObject("Word.Application")
Set WrdDoc = WrdApp.Documents.Open("C:\Documents and Settings\invite2\Mes documents\Pige\Revue_Presse.docx")
WrdApp.Visible = True

total = Titre & vbCrLf & "Note : " & note & " /5" & vbCrLf & description

WrdDoc.Selection.TypeText Variable:=total

End Sub

Merci d'avance et a bientot