copie d'une ligne sur autre feuille... aie aie aie je debute

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Me.[M3:M96], Target) Is Nothing And Target.Count = 1 Then
    If Target.Value = "P1" Then
'        Range(Cells(Target.Row, 3), Cells(Target.Row, 96)).Copy Destination:=Sheets("Feuil1").Range("A3" & Sheets("Feuil1").Range("M65536").End(xlUp).Row + 1)
        Cells(Target.Row, 3).Resize(, 94).Copy Destination:=Sheets("Planaction").Range("A" & Sheets("Planaction").Range("A65536").End(xlUp).Row + 1)
    End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Me.[M3:M96], Target) Is Nothing And Target.Count = 1 Then
    If Target.Value = "P1" Then
        
        Me.Range(Range("B" & Target.Row), Range("B" & Target.Row).End(xlToRight)).Copy
        
        Sheets("Planaction").[A200].End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    
        Application.CutCopyMode = False
    End If
End If

End Sub