[XL-2007] VBA : utilisation application.worksheetfunction.vlookup

Bonjour,
Alors voila je dois utiliser application........vlookup pour afficher un message d'erreur.
Si le numero de la facture est dejà présent dans la base de donnée, il faudrait qu un message d'erreur m'imforme que la facture a déja été archivé ! et si arrive a son termeje voudais qu un message me dise facture archivé !
voila ma macro :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub archive()
    Sheets("liste_facture").Select
    Range("A1").Select
        Do While ActiveCell <> ""
 
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell = Range("nf")
    ActiveCell.Offset(0, 1) = Range("nc")
    ActiveCell.Offset(0, 2) = Range("date_facture")
        Sheets("detail_facture").Select
             Range("A1").Select
        Do While ActiveCell <> ""
        ActiveCell.Offset(1, 0).Select
        Loop
        Sheets("facture").Select
 
        Range("A14").Select
         Do While ActiveCell <> ""
         Dim ref
        Dim qte
        Dim puht
        ref = ActiveCell
        qte = ActiveCell.Offset(0, 4)
        puht = ActiveCell.Offset(0, 5).Value
        Sheets("detail_facture").Select
 
        ActiveCell = Range("nf")
        ActiveCell.Offset(0, 1) = ref
        ActiveCell.Offset(0, 2) = qte
        ActiveCell.Offset(0, 3) = puht
        ActiveCell.Offset(1, 0).Select
        Sheets("facture").Select
        ActiveCell.Offset(1, 0).Select
        Loop
 
End Sub