XL 2010 Excel VBA, copier données dans feuilles en inserant ligne

Bonjour
essaie ceci.
Private Sub CommandButton1_Click()
' Parcours les feuilles du fichier
For Each Wsh In ThisWorkbook.Worksheets
Select Case Wsh.Name
Case "DEX", "DEX2", "DEX5" ' à modifier suivant convenance
xdlgn = 3
Wsh.Rows(xdlgn).ListObject.ListRows.Add (3)

'xdlgn = 0: xdlgn = Wsh.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 1 To 4
Wsh.Cells(xdlgn, i).Value = Me("Textbox" & i).Value
Next i
End Select
Next
End Sub