Mettre des lignes en descendant [Fermé]

Bonjour,
Débutant en VBA je suis en train d 'essayer de faire une feuille travail avec un userform , j'ai su créer mon userform , mais mes données ne se mettent pas ou je veux.

Quand je valide mes données qui sont en ligne 2 ,elles glissent en ligne 3 , la ligne 2 devient vide.

moi ce que je voudrais c'est que les lignes se placent comme si j'écrivais sur une feuille de papier les une en dessous des autres et ou il n' y a rien d'inscrit dans la ligne.

a savoir que je fait une copie dans une seconde feuil ( feuill2 ) et que sur la feuill2 ça fonctionne comme je veux

 Private Sub CommandButton1_Click()
If MsgBox("confirmez", vbYesNo, "confirmation") = vbNo Then Exit Sub
 Rows("2:2").Select
  Selection.Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  Unload UserForm1
  Load UserForm1
  UserForm1.Show


  'Copié feuill1 dans feuill 2

  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long

  Sheets("Feuil2").Activate ' feuille de destination

  Col = "C"                 ' colonne de la donnée non vide à tester
  NumLig = 0
  With Sheets("Feuil1")     ' feuille source
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 1 To NbrLig
    If .Cells(Lig, Col).Value <> "" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Cells(NumLig, 1).Select
      ActiveSheet.Paste
    End If
  Next
  End With




End Sub