Bug sur commande VBA

Bonjour,

J'ai un problème sur la commande suivant qui consiste en gros a insérer des lignes a un endroit spécifique et par la suite a y copier des formules.

Ma commande bug au niveau du "Pastespecial" (avant dernière commande).

quelqu'un peut-il m'aider
Sub Insertrow2()

Dim FindRng As Range
Dim OTDRow As Long

ActiveCell.Rows("1:6").EntireRow.Insert
ActiveCell.Range("A1:M1").Select
Selection.NumberFormat = "0%"
ActiveCell.Offset(1, 0).Range("A1:M2").Select
Selection.NumberFormat = "0"
ActiveCell.Offset(2, 0).Range("A1:m1").Select
Selection.NumberFormat = "0.00%"
ActiveCell.Offset(1, 0).Range("A1:m1").Select
Selection.NumberFormat = "0"
ActiveCell.Offset(1, 0).Range("A1:m1").Select
Selection.NumberFormat = "0.00%"
ActiveSheet.Rows("14:15").Select
Selection.EntireRow.Hidden = False



ActiveSheet.Rows("13:15").Activate
Selection.Copy

Set FindRng = ActiveSheet.Columns(2).Find("Rest OTD")
If Not FindRng Is Nothing Then
OTDRow = FindRng.Row
End If

ActiveSheet.Cells(OTDRow, 2).Activate
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Rows("14:15").Select
Selection.EntireRow.Hidden = True
End Sub


PS: Je n'ais pas effectuer cette macro tout seul mais la personne qui m'a aidé ne peut me renseigner aujourd'hui... merci d'avance de votre aide