Microsoft 365 Copier cellule active et une autre cellule sur une autre feuille

Sub Copie3()
  Dim sh As Worksheet, lig&: Application.ScreenUpdating = 0
  Set sh = Worksheets("Feuil2"): lig = sh.Cells(Rows.Count, 3).End(3).Row + 1
  With Worksheets("Feuil1").Cells(lig, 3)
    sh.Cells(lig, 4) = .Value: sh.Cells(lig, 10) = .Offset(, 6)
  End With
End Sub

Option Explicit

Sub Copie3()
  If ActiveSheet.Name <> "Feuil1" Then Exit Sub
  Dim sh As Worksheet, cel As Range, nlm&, lg1&, lg2&
  Set cel = ActiveCell: If cel.Column <> 3 Then Exit Sub
  Set sh = Worksheets("Feuil2"): nlm = Rows.Count
  lg1 = cel.Row: Application.ScreenUpdating = 0
  lg2 = sh.Cells(nlm, 4).End(3).Row + 1
  If cel <> "" Then sh.Cells(lg2, 4) = cel
  lg2 = sh.Cells(nlm, 10).End(3).Row + 1
  If cel.Offset(, 6) <> "" Then _
    sh.Cells(lg2, 10) = cel.Offset(, 6)
End Sub