Private Sub descriptionL46()
ncas = Worksheets("tx1").Range("D46") 'origine n° des cas a comparer dans TX1'
On Error GoTo Erreur
Lig = Sheets("analyse").Range("A1:A65536").Find(ncas, , , LookAt:=xlWhole).Row
Sheets("analyse").Cells(Lig, 4).Copy Destination:=Worksheets("tx1").Range("E46")
Exit Sub
Erreur:
If Err.Number = 91 Then
Message = MsgBox("Ce numéro d'observation n'existe pas!!!", vbExclamation, "Erreur")
Range("D46:E46") = ""
End If
End Sub