Insérer une ligne après la ligne de titre dans un tableau

Bonjour,
Je suis à mes premières lignes de codes VBA, je pige ça et à sur internet du code et ça fonctionne pas si mal. Sauf que je ne trouve pas comment insérer une ligne dans un tableau, toujours sous la ligne de titre.

Voici le code de mon Bouton pour inscrire les informations de mon formulaire dans le tableau de l'onglet SaisieTemps. Ca fonctionne bien sauf que ça ajoute les données sur la dernière ligne de mon tableau, pas sur la 2e ligne.

Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l'insertion de ce temps ?", vbYesNo, "Confirmation?") = vbYes Then
L = Sheets("SaisieTemps").Range("a65536").End(xlUp).Row + 1
Cells(L, 1) = ComboBox1.Value
Cells(L, 2) = ComboBox2.Value
Cells(L, 3) = TextBox1.Value
Cells(L, 4) = TextBox2.Value
Cells(L, 5) = ComboBox3.Value
Cells(L, 7) = TextBox3.Value

End If
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("Calendrier[#Headers,[Date]]"), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
Other:=False, FieldInfo:=Array(1, 5), TrailingMinusNumbers:=True
Range("A2").Select

End Sub

Un gros merci pour votre aide!!!