Erreur RDV Outlook via Excel

Bonjour,

J'ai trouver ce code qui fonctionne bien sous une autre version d'excel.
mais quand je l'applique a mon fichier sous Excel 2010 ça me crée une erreur de compilation "type défini par l'utilisateur non définie" à la ligne en gras. Ma référence "Microsoft Outlook 14.0 Object Library"

Quelqu'un peux m'aider?

Merci

Sub NouveauRDV_Calendrier()
'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
Dim OkApp As New Outlook.Application
Dim Rdv As Outlook.AppointmentItem
Dim lig As Long
Set Rdv = OkApp.CreateItem(olAppointmentItem)

'choix du calendier
For i = 9 To Cells(Rows.Count, 1).End(xlUp).Row
'utilisation de la méthode add au lieux de createitemSet Rdv = cal.Add(olAppointmentItem)
If Cells(i, 11) = "" And Cells(i, 23) = "1" Then

With Rdv
.MeetingStatus = olMeeting
.Subject = "Dossier " & Cells(i, 1)
.Body = "Lettre de rappel à envoyé pour l'aménagement extérieur"
.Location = Cells(i, 3)
.Start = Cells(i, 13)
.Duration = 30 'min
.Categories = "Programme suivi d'aménagement"
.Save
End With



End If
Next i

End Sub