Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'si plusieurs selection on quitte
lig = Target.Row 'la ligne
If Target.Column <> 7 Or lig < 8 Then Exit Sub
If Target <> "x" Then Exit Sub 'si pas de x on quitte
If Cells(Target.Row, 8) = "RETIRAGE SANS CORRECTIONS" Then
'on écrit sur NUMERIQUE
bas = Feuil3.[C65000].End(3).Row + 1 'ligne à écrire
Feuil3.Range("B" & bas & ":AA" & bas).Value = Feuil1.Range("B" & lig & ":AA" & lig).Value
Else
'on écrit sur PAO....
bas = Feuil2.[C65000].End(3).Row + 1
Feuil2.Range("B" & bas & ":AA" & bas).Value = Feuil1.Range("B" & lig & ":AA" & lig).Value 'écriture
End If
Feuil1.Rows(lig).Delete 'destruction de la ligne
End Sub