XL 2016 RechercheV plusieurs résultats

Sub TraductionBEA()
 With ThisWorkbook.Sheets("Feuil1")
        .Range("B2:B40000").Formula = "=If($A2<>"""",VLOOKUP($A2,'[fichier.xlsx]User Texts'!$A$2:$B$40000,2,FALSE),"""")"
        ' Si vous voulez ne conserver que les valeurs (traduction sans formule)
        ' décommenter la ligne ci-dessous
        ' .Value =.Value
End With
    MsgBox "Traduction effectuée"

End Sub

 With ThisWorkbook.Sheets("Feuil1")
        '
        ' Ne pas engendrer de calculs lors de la copie des formules
        Application.Calculation = xlCalculationManual
        .Range("B4:D40000").Formula = "=IF($A4<>"""",INDEX('[Traduction en Slovaque.xlsx]User Texts'!$B$4:$B$40000," & _
                "AGGREGATE(15,6,ROW('[Traduction en Slovaque.xlsx]User Texts'!$A4:$A40000)/('[Traduction en Slovaque.xlsx]User Texts'!$A4:$A40000 =$A4),COLUMN(A$4))-3),"""")"
        Application.Calculation = xlCalculationAutomatic
        '
        ' Calculer la feuille (bon courage)
        .Calculate
   End With

Sub TraductionBEA2()
    Dim Formule As String
    Dim i As Integer
   
    MsgBox ("Selectionner le fichier référent pour votre traduction ")
    '
    ' Rajouter un titre à la fenêtre de choix du fichier
    choix = Application.GetOpenFilename("Fichiers Excel (*.xls; *.xlsx; *.xlsm),*.xls; *.xlsx; *.xlsm", _
                Title:="Selectionnez le fichier référent pour votre traduction")


    If choix = False Then
        MsgBox "Programme arrêté: vous n'avez pas selectionné de fichier"
    Else
        '
        ' Affichage dans la fenêtre exécution (CTRL+G pour l'ouvrir) du choix utilisateur
        Debug.Print choix
        '
        ' Inclure le Crochet ouvrant au bon endroit pour la formule
        '
        ' Position du dernier séparateur de dossier
        i = InStrRev(choix, Application.PathSeparator)
        '
        ' Reconstruction du chemin pour formule excel
        choix = Left(choix, i) & "[" & Right(choix, Len(choix) - i)
        '
        ' Construction de la formule
        Formule = "=If($A2<>"""",VLOOKUP($A2,'" & choix & "]User Texts'!$A$2:$B$40000,2,FALSE),"""")"
        '
        ' affichage de la formule dans la fenêtre d'exécutionpour vérification
        ' supprimer ou commenter la ligne lorsque tout est ok
        Debug.Print Formule
       
        With ThisWorkbook.Sheets("Feuil1").Range("B2:B40000")
            .Formula = Formule
            .Value = .Value
        End With

        MsgBox "Traduction effectuée"
    End If
End Sub