Problème code VBA copier/coller

Bonjour à tous, après de nombreuses recherches infructueuses et des modifications de codes à répétition je ne comprend pas pourquoi mon simple copier/coller ne fonctionne pas, VBA me rejete le coller...
Ci dessous voici le texte
Merci d'avance!

Do
For i = 6 To 1000
Sheets("Comptabilité").Select
ActiveSheet.Unprotect
Cells(i, 5).Select
ActiveSheet.Protect
Sheets("Rapprochement bancaire").Unprotect
If Selection.Value = "P" Or Selection.Offset(0, 3) = "" Then
Else
Sheets("comptabilité").Range(Cells(i, 3), Cells(i, 7)).Copy
Sheets("Rapprochement bancaire").Range("A12").End(xlDown).Offset(1, 0).PasteSpecial_ (xlPasteValues)
Application.CutCopyMode = False
End If
Next
Loop While Cells(i, 1) <> ""