Private Sub Worksheet_Change(ByVal Target As Range)
Dim flag As Boolean
'efface les infos si le nom est effacé
If Target.Column <> 4 Or Target.Count > 1 Or (Target.Row < 3 Or Target.Row > 62) Then Exit Sub
If IsEmpty(Target) Then
Application.EnableEvents = False
If MsgBox("Confirmer la suppression?", vbYesNo + vbQuestion, "SUPPRIMER") = vbYes Then
Cells(Target.Row, 14) = Cells(Target.Row, 10)
'Copie de sauvegarde
Target.Offset(, -1).Resize(1, 7).Copy Destination:=Sheets("Sauve").Range("a" & Sheets("Sauve").Range("a" & Rows.Count).End(xlUp).Row)
Target.Offset(, -1).Resize(1, 7) = ""
Else
Target = Cel
End If
Application.EnableEvents = True
End If
End Sub