Microsoft 365 Erreur Visual Basic (Macro Excel)

Bonjour à tous,

Je viens de créer une macro, mais lorsque je la lance, j'obtiens un message qui me demande d'activer le "débogage". Si je dis oui, le codage s'affiche avec en surbrillance jaune "ActiveSheet.Paste". Je n'arrive pas à résoudre cette erreur qui empêche ma macro de s'effectuer correctement:

...
End With
Range("J1").Select
ActiveSheet.Paste
Range("I1").Select
ActiveSheet.Paste
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.RowHeight = 37.2
Range("B1").Select
ActiveCell.FormulaR1C1 = "=+TODAY()"
Range("B1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
...
Quelqu'un sait-il de quoi il s'agit et de quelle manière je peux régler ce problème? Je ne connais pas du tout ce language (codification derrière les macros Excel)

Merci par avance.