Private Sub ListBox1_Click()
Dim z&, lig&, Wksh As Worksheet, p As Range
With Feuil1: Set p = .Range(.Cells(1, 1), .Cells(.Rows.Count, 3).End(3)): End With
With [D2]
.Value = ListBox1.Value
.Offset(, 1) = Application.VLookup(.Value, p, 2, 0): .Offset(, 7) = Application.VLookup(.Value, p, 3, 0)
End With
Set Wksh = Sheets("Competences"): lig = Wksh.Cells(Rows.Count, 1).End(3).Row
With Wksh.Range("A1:A" & lig)
z = Application.Match([L2], .Range(.Address), 0)
[B5].Resize(4) = Application.Transpose(Wksh.Cells(z, 1).Offset(, 1).Resize(, 4))
End With
End Sub