Impossible de copier une plage de cellule vba

Bonjour,

voila j'ai un petit probleme ave une macro je suis presqu' a la fin mais la ligne
selection.paste rencontre un deboggage

En je vous explique ma macro
je fais fait je fais une comparaison entre la valeur d'une textbox et la valeur d'une cellule dans un tableau.Si celle ci correspondent alors je supprime la valeur de cette" cellule ainsi que d'autres.
Ensuite je selection une plage en dessous de cette cellule et je veux la copier a l'emplacement laisser libre par la suppression

Sub supprdef()
Dim i As Integer

If UserForm5.ComboBox20.Text = "Fevrier" Then
For i = 4 To 28
If Sheets("Boutons de commande").Cells(i, 13).Text = UserForm5.TextBox21.Text Then
Range(Cells(i, 13), Cells(i, 12)).Select
Selection.ClearContents
Range(Cells(i, 11), Cells(i, 10)).Select
Selection.ClearContents
Cells(i, 9).Select
Selection.ClearContents
j = i + 1
Range(Cells(j, 9), Cells(28, 13)).Select
Selection.Copy
Selection.ClearContents
Cells(i, 9).Select
Selection.Paste



End If
Next i
End If





Le probleme c'est le paste : probleme ou methode non geret par cet objet

Pouvez vous m'aider s'il vous plait ?

Merci d'avance