Chercher une valeur dans un classeur et ajouter la ligne.

Private Sub CommandButton2_Click()
Dim WbOrigine As Workbook 'Classeur Essai1
Dim WsOrigine As Worksheet
Dim WbDestination As Workbook 'Classeur Essai2
Dim WsDestination As Worksheet

Dim i As Integer
Dim j As Integer
Dim x As Integer
'Dim LigneD As Long
'Dim ligneA As Long
Dim FinOri As Long
Dim FinDest As Long

Dim temp As Variant
Dim ici As Variant

Set WbOrigine = ActiveWorkbook
Set WsOrigine = WbOrigine.ActiveSheet
FinOri = WsOrigine.Range("A" & Rows.Count).End(xlUp).Row 'on récupère la dernière ligne du classeur 1

'Workbooks.Open ("D:\Projet POIC\Essai2.xlsm") 'Repertoire à modifier en fonction d'ou vous cpierez les fichhiers
'MsgBox "le fichier est ouvert" 'juste pour tester
Workbooks("Essai2.xlsm").Activate 'à la place du workbook open au dessus, car pour les essais, le second fichier est déjà ouvert
Set WbDestination = ActiveWorkbook
Set WsDestination = WbDestination.Worksheets("BCS")
FinDest = WsDestination.Range("A" & Rows.Count).End(xlUp).Row 'on récupère la dernière ligne du classeur 2

With WsOrigine
    'WsOrigine.Range("A1:K" & FinOri).Select 'on selectionne le tablo du classeur Origine pour le trier sur la colonne A
    .Sort.SortFields.Clear 'on supprime les tris actifs
    .Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
    With .Sort
        .SetRange Range("A1:K" & FinOri)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With


Workbooks("Essai1.xlsm").Activate
 '1ere ligne vide archives
'ligneA = WsOrigine.Range("A" & Rows.Count).End(xlUp).Row + 1 'Sheets("Feuil1").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
'derniere lignes données
'LigneD = WsDestination.Range("A" & Rows.Count).End(xlUp).Row '.Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row

For i = 2 To FinDest
    Set ici = WsOrigine.Range("A:A").Find(WsDestination.Range("A" & i), LookIn:=xlValues)
    If ici Is Nothing Then
        WsDestination.Range("A" & i).Resize(1, 10).Copy Destination:=WsOrigine.Range("A" & FinOri + 1)
        FinOri = FinOri + 1
        x = x + 1
    End If
Next i
       
'    temp = [Vlookup(SI(ESTERREUR(RECHERCHEV("A"& i,[Classeur6_V3.xlsm]Feuil1!$A:$A;1;FAUX));1;0)]
'    If temp = 1 Then
'        Sheets("BCS").Select
'        ActiveSheet.Range("A" & n & ":K" & n).Select
'        Selection.Copy
'        Sheets("Feuil1").Select
'        '1ere ligne vide archives
'        ligneA = Sheets("Feuil1").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
'        'et colle dans archives
'        Sheets("Feuil1").Range("A" & ligneA).Select
'        ActiveSheet.Paste
'        x = x + 1
'    End If
'Next i
MsgBox x & " Personnel ont été ajoutés"
End Sub