Erruer de code sur ma ligne

Bonjour à tous,

afin de récupérer des valeurs dans un autre classeur, j'ai réalisé un code.

Sub RecupHeureN()

Dim dt1 As Date
Dim dt2 As Date
Dim Lng As Integer
Dim Cln As Integer
Dim x As Integer
Dim Wb As Workbook

Chemin = Sheets("AnneeN").Range("C2") 'recherche le nom du dossier inscrit dans la feuille
Classeur = Sheets("AnneeN").Range("C3") 'recherche le nom du classeur dans la feuille
dt1 = Sheets("AnneeN").Range("C5").Value ' date de début de la recherche
dt2 = Sheets("AnneeN").Range("C6").Value ' date de fin de la recherche

'Ouvre le fichier cible
Set Wb = Workbooks.Open(Chemin & Classeur)

x = 9

' Calcule et affihe les heures effectuées dans la période
With Wb.Sheets("Pointage")

' Copie les données de la feuille cible
For Lng = 13 To 325 Step 6 'Indique la première ligne de recherche
For Cln = 6 To 12 ' Indique la colonne de recherche

If .Cells(Lng, Cln) >= dt1 And .Cells(Lng, Cln) <= dt2 Then
Sheets("AnneeN").Cells(x, 3) = .Cells(Lng, Cln).Value
Sheets("AnneeN").Cells(x, 4) = .Cells(Lng + 1, Cln).Value
x = x + 1
End If

Next
Next
End With

'Ferme le fichier cible
Wb.Close False

End Sub

Seulement arrivé à la ligne

Sheets("AnneeN").Cells(x, 3) = .Cells(Lng, Cln).Value

un message d'erreur m'indique " L'indice n'appartient pas à la sélection", mais je n'arrive pas à trouver mon erreur.

Si un oeil nouveau pouvait m'aider.

merci encore

Bonjour,

peut-être en précisant le nom du classeur:

Dim W1 As Workbook
Set W1= ActiveWorkbook 'avant l'ouverture de l'autre classeur
..../...
W1.Worksheets("AnneeN").Cells(x, 3) = .Cells(Lng, Cln).Value
.../...

A+

Salut AlgoPlus

merci encore

titi32600