Private Sub LstV_BaseDonnees_DblClick()
Dim i As Long
RetourLigne = LstV_BaseDonnees.SelectedItem.Index 'N° de l'index sélectionné dans la listview
VAL_CODEBASE = LstV_BaseDonnees.ListItems(RetourLigne).Text
MaVariableCritere = Worksheets("BASE EMPLOI").Range("A1:BB3000")
FinTableau = Sheets("BASE EMPLOI").Range("A" & "65535").End(xlUp).Row
For i = 1 To FinTableau
If Sheets("BASE EMPLOI").Range("A" & i).Value = VAL_CODEBASE Then
nNumeroDeLigne = Application.VLookup(VAL_CODEBASE, MaVariableCritere, 0, False)
..................................................