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