VBA : générer une liste selon le nom des employés

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    derlig = Range("C" & Rows.Count).End(xlUp).Row
    If Not Application.Intersect(Target, Range("A2:A" & derlig)) Is Nothing Then
        Lig = Target.Row
        Set trouv = Columns("C").Find(Target.Value, , , xlWhole)
        If Not trouv Is Nothing Then
            Range("F" & Lig) = trouv.Offset(, 1)
        Else
            Range("F" & Lig) = ""
        End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub       'une seule cellule concernee
    derlig = Range("C" & Rows.Count).End(xlUp).Row      'derniere cellule non vide colonne B
    'changement pris en compte uniquement pour les cellules colonne A
    'de A2 a la cellule a hauteur de la derniere colonne B
    If Not Application.Intersect(Target, Range("A2:A" & derlig)) Is Nothing Then    'changement uniquement pour les cellules colonne A
        Lig = Target.Row        ' ligne de la cellule en cours
        If Target.Value <> "" Then  'cellule colonne A non vide
            Set trouv = Columns("C").Find(Target.Value, , , xlWhole)    'recherche dans colonne C le contenu de le cellule A
            If Not trouv Is Nothing Then    'si trouvee
                PCV = Range("F" & Rows.Count).End(xlUp).Row + 1   'derniere cellule non vide colonne F
                Range("F" & PCV) = trouv.Offset(, 1)    'ecriture de l'adresse @Mail colonne F (les unes en dessous des autres)
            End If
        End If
    End If
End Sub