Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig
lig = Target.Row
If Not Application.Intersect(Target, Range("H1:H2500")) Is Nothing Then
If Target = "" or target.count > 1 Then Exit Sub
If Target = "93" Then
With GESTIONTTM
.Label1 = lig
.Show
end with
End If
End if
end sub