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

[harry226h]

Bonjour a tous
Je viens solliciter votre aide sur un fichier.
Je souhaite copier des données d'un textbox vers des feuilles différente.
Cela est possible dans le fichier ci-joint, mais au lieu que ces données soit copier a la dernière ligne, j'aimerais qu'une ligne soit insérer à la ligne 3 et y copier les données.
Merci d'avance

 

[sousou]

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