La methode pastespecial de la classe range a echoué

Bonjour,
Alors je suis nouveau en VBA et j'ai ce message d'erreur lorsque lance mon code alors qu'auparavant quelque copié collé dans mon code, celui-ci fonctionnais
Pourriez vous m'éclairez de vos précieux conseils
Désolé pour la présentation, je ne connais pas beaucoup la présentation

Voila l'origine de mon problème

Range("A6:L61").Select
Selection.Copy
Sheets("Fiche de présentation").Select
Range("B16:K16").Select
Selection.Font.Underline = xlUnderlineStyleSingle

Dim r As Integer
Dim m As Integer
m = 1
r = m + 1

While Range("A" & m).Value = 1 And Not (Range("D" & r) = code)
m = m + 56
Wend

Range("A" & m).Select
Selection.pastespecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Lorsque je consulte le débogeur c'est les deux dernières lignes qui sont en jaune

Merci pour vos réponses