"erreur d'exécution 424" sur VBA

Bonjour,
J'ai besoin d'un peu d'aide pour résoudre une "erreur d'exécution 424" sur VBA.
Voici ci-dessous le code (en rouge la ligne qui poserai problème) :

Option Explicit

Sub Importer()
Dim i As Long
Dim sDossier As String, sFichier As String, sFeuille As String, ShDatas As Variant
Application.ScreenUpdating = False

ShDatas.Range("D13:E65536").Clear
sDossier = ThisWorkbook.Path & "\"
sFeuille = "Cover page CAA"

For i = 1 To 4
With ShDatas
sFichier = .Cells(1, i)
.Cells(2, i) = ExtraireValeur(sDossier, sFichier, sFeuille, "F9")
.Cells(2, i) = CDate(Cells(2, i))
End With
Next i

Application.ScreenUpdating = True
End Sub

Merci d'avance de votre aide.

Cordailement,