Dim lig As Long
Application.ScreenUpdating = False
If Not Intersect(Target, Range("f2:f65000")) Is Nothing Then
If MsgBox("Vous voulez vraiment proceder aux modifications ?", vbOKCancel, "XLD") = vbOK Then
ActiveCell.Value = "QIE"
Else
Exit Sub
End If
If Target.Value <> "PRODUCTION" Then
With Sheets("QIE")
lig = .Range("a65536").End(xlUp).Row + 1
Range(Target.Offset(0, -5), Target.Offset(0, 1)).Copy
Sheets("QIE").Cells(lig, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.Goto .Range("a1")
End With
Sheets("Base").Activate
End If
End If