Probleme dans le code

Bonjour,

j'ai cree ce code pour inserer une valeur de la feuille Fiche dans la colonne D du feuille Donnees mais la valeur du champ A6 et B6 de la feuille Fiche doivent etre les memes de les colonnes A et B de la feuille Donnes. C'est a dire qu'il doit coller la donnee inserée dans la case D6 de la feuille Fiche dans la colonne D où les valeurs A6 et B6 corresponds.

Private Sub CommandButton1_Click()
 
Dim NewLig As Long
NewLig = Worksheets("Fiche").Cells(Rows.Count, "D").End(xlUp).Row + 1

For i = 1 To Worksheets("Donnees").Range("A65536").End(xlUp).Row
'toutes les lignes donc
If Worksheets("Donnees").Range("A" & i).Value = Worksheets("Fiche").Range("A6").Value And Worksheets("Donnees").Range("B" & i).Value = Worksheets("Fiche").Range("B6").Value Then
NewLig = i
End If
Next i

With Worksheets("Donnees")
.Cells(.Rows.Count, "D").End(xlUp).Row 1
End With

End Sub

il s'affiche cet erreur

Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet