Microsoft 365 Bug au démarrage de ma macro

  Range("t_BDD").ListObject.ListRows.Add (1)

Sub Formulaire()
    [Tableau1].ListObject.ListRows.Add (1)
    Sheets("Formulaire").Range("C3:C11").Copy
    Sheets("BDD").[Tableau1[Date]].Item(1).PasteSpecial Paste:= _
    xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

Sub Formulaire()
' Formulaire Macro
    Dim LsR As ListRow
   Set LsR = Range("t_BDD").ListObject.ListRows.Add(1)
   With Sheets("Formulaire")
    With .Range("C3:C11").Copy
    LsR.Range(1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    End With
   End With
    Range("B3").Select
End Sub

 Sheets("BDD").[Tableau1[Date]].Item(1).PasteSpecial Paste:= _
    xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True    
    soit
[Tableau1[Date]].Item(1).PasteSpecial Paste:= _
    xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True