Limiter la copie de données sur 1 feuille

Private Sub CommandButton1_Click()

Dim DerLigne As Integer
DerLigne = Sheets("1").Range("A65536").End(xlUp).Row + 1


With Sheets("1")
.Activate
.Range("A1").Select
    With .Range("G" & DerLigne)
        With .Font
               .Name = MyCellFont
               .Bold = MyCellBold
               .Italic = MyCellItalic
               
        End With
    .Value = MyCellValue
    End With
    

.Range("A" & DerLigne) = TextBox3.Value
.Range("B" & DerLigne) = TextBox2.Value
.Range("C" & DerLigne) = TextBox1.Value
.Range("G" & DerLigne) = Format(TextBox4, "000")
.Range("H" & DerLigne) = Format(TextBox9, "00 00")
.Range("I" & DerLigne) = Format(Me.TextBox38, "## ##")
.Range("J" & DerLigne) = TextBox12
.Range("K" & DerLigne) = TextBox13
.Range("L" & DerLigne) = TextBox8

  TextBox4.Value = ""
  TextBox8.Value = ""
  TextBox38.Value = ""
  TextBox9.Value = ""
  TextBox12.Value = ""
  TextBox13.Value = ""
 
  
  TextBox12.SetFocus
  TextBox13.SetFocus
  TextBox8.SetFocus
  TextBox38.SetFocus
  TextBox4.SetFocus
  End With
   End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' cellules = entre feuilles 2 , 3 ,4 & 5

Application.EnableEvents = False 'Evite de tourner en boucle


If Target.Address = "$C$6" Then
Sheets("2").Range("C6") = Target.Value
  Sheets("3").Range("C6") = Target.Value
  Sheets("4").Range("C6") = Target.Value
  Sheets("5").Range("C6") = Target.Value
End If
If Target.Address = "$C$7" Then
Sheets("2").Range("C7") = Target.Value
  Sheets("3").Range("C7") = Target.Value
  Sheets("3U").Range("C7") = Target.Value
  Sheets("5").Range("C7") = Target.Value
End If
If Target.Address = "$C$8" Then
Sheets("2").Range("C8") = Target.Value
  Sheets("3").Range("C8") = Target.Value
  Sheets("4").Range("C8") = Target.Value
  Sheets("5").Range("C8") = Target.Value
End If
If Target.Address = "$C$9" Then
Sheets("2").Range("C9") = Target.Value
  Sheets("3").Range("C9") = Target.Value
  Sheets("4").Range("C9") = Target.Value
  Sheets("5").Range("C9") = Target.Value
End If

Application.EnableEvents = True
End Sub