Gestion erreur sur vlookup

Bonjour,

J'ai un fichier excel avec deux feuilles :

- une feuille "regroupement" avec en colonne A une liste de "CC" et une colonne B vide à remplir

- une feuille "liste CDF" avec en colonne A une liste de "CC" et une colonne B avec des "CDF"

Je veux dans mon onglet regroupement mettre les CDF en colonne B associées aux CC en colonne A.

Mon problème est : dans l'onglet regroupement, il y a des CC qui n'existent pas dans ma "Plage" de recherche, la macro s'arrête car elle ne trouve pas la valeur cherchée et c'est normal. Comment je peux gérer l'erreur et faire en sorte qu'il passe à l'itération suivante ? (du coup il ne met rien dans la colonne B de l'onglet regroupement).

Merci

Eloïse

Dim c As Range
    Dim i As Integer
    Dim Plage As Range

    Set Plage = ThisWorkbook.Sheets("Liste CDF").Range("A:B")

        Worksheets("Regroupement").Activate

            For Each c In Worksheets("Regroupement").Range("A2:A1000")
                If c.Value <> "" Then
                i = c.Row
                Cells(i, 2) = Application.WorksheetFunction.VLookup(c.Value, Plage, 2, False)

                End If

            Next

Bonjour,
Une proposition.
Cdlt.

Dim c As Range, i As Long, Plage As Range, x
    Set Plage = ThisWorkbook.Sheets("Liste CDF").Range("A:B")
    For Each c In Worksheets("Regroupement").Range("A2:A1000")
        If Not IsEmpty(c) Then
            x = Application.Match(c.Value, Plage.Columns(1), 0)
            If IsError(x) = 0 Then
                i = c.Row
                Worksheets("Regroupement").Cells(i, 2) = Application.WorksheetFunction.VLookup(c.Value, Plage, 2, False)
            End If
        End If
    Next

Merci beaucoup, ça marche parfaitement !

Eloïse