Private Sub NC_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Recherche As String
Dim Ligne As Long
Dim plage As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
Recherche = NC.Value
Range("G8").Select
Ligne = Sheets("Suivi NC").Range("G" & "65536").End(xlUp).Row
Set plage = Sheets("Suivi NC").Range("G" & "8:" & "G" & Ligne)
With plage
Set c = .Find(Recherche, LookIn:=xlValue, lookat:=xlWhole)
If c Is Nothing Then
Exit Sub
Else
If Not c Is Nothing Then
ALERT.TNCrecup.Value = c
Me.ActiveControl = False
Unload Me
ALERT.Show
End If
End If
End With
Application.EnableEvents = True
Application.ScreenUpdating = True