Macro Batch + Autoexec

' Ecriture numero appele dans test colonne F
'
  '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
  'r = Cells(65536, 1).End(xlUp).Row 'recuperation de la derniere cellule non vide de la colonne A excel 2003
  'r2 = Cells(65536, 2).End(xlUp).Row 'recuperation de la derniere cellule non vide de la colonne B excel 2003
  '¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
Sub Cherche()
     Dim derlig, derlig1, NbId, plage As Range, plage1 As Range, cel As Range, cel1 As Range
     Dim val, val1, Idx
  
  
     With Worksheets("fcidfinal")
         'derniere ligne fcifinal colonne A
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
         'derniere ligne test colonne A
        derlig1 = Worksheets("test").Range("A" & Rows.Count).End(xlUp).Row
        'Definition en memoire plage de recherche fcidfinal
        Set plage = .Range("E2:E" & derlig)
        'Definition en memoire plage de recherche test
        Set plage1 = Worksheets("test").Range("A2:A" & derlig)
    
        For Each cel In plage 'balayage fcidfinal de la colonne A
            val = cel
            'test si existe dans plage feuil test
            NbId = Application.CountIf(plage1, val)
            'Existe??
            If NbId > 0 Then
                 ligtest = 1
                With Worksheets("test")
                    For Idx = 1 To NbId
                        'Recherche valeur exacte
                        ligtest = .Columns("A").Find(val, .Cells(ligtest, "A"), , xlWhole).Row
                        'Ecriture temps connex fcidfinal colonne D vers test colonne F
                        .Cells(ligtest, 6) = Worksheets("fcidfinal").Cells(cel.Row, 4)
                    Next Idx
                End With
             End If     'NbId
        Next cel
    End With        'fcidfinal
End Sub

Sub Cherche()

Dim val1, val2, resultc
Dim r, r2, ra, rd
Dim cell, cell2
rd = 1 

r = Cells(65536, 1).End(xlUp).Row 'recuperation de la derniere cellule non vide de la colonne A
r2 = Cells(65536, 2).End(xlUp).Row 'recuperation de la derniere cellule non vide de la colonne B

For Each cell In Range(Cells(1, 1), Cells(r, 1)) 'balayage de la colonne A
If cell.Value = val1 Then 'si on trouve la 1ère valeur on  récupére son n° de ligne
ra = cell.Row

For Each cell2 In Range(Cells(ra, 2), Cells(r, 2)) 'balayage de la colonne B
If cell2.Value = val2 Then 'si on retrouve la 2nde valeur
resultc = cell2.Offset(0, 1).Value 'on stock la valeur de la cellule de la colonne C sur la ligne
'où a été trouvé la seconde valeur
Cells(rd, 4).Value = resultc '
rd = rd + 1
End If
Next cell2
End If
Next cell

End Sub

=RECHERCHEV($A$2;test1;2;FAUX)