Macro Batch + Autoexec

@ echo off

C:
chdir c:\cygwin\bin
bash --login -i c:\cygwin\bin\script_sed.sh

' 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

=RECHERCHEV($A$2;TEST;3;FAUX)