Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat As Range, col As Variant, P As Range, n As Byte
Set dat = [C8]
If Intersect(Target, dat) Is Nothing Then Exit Sub
[C11:C42,H11:H42].ClearContents 'RAZ
With Feuil6 'CodeName de la feuille "Listes"
col = Application.Match(dat.Value2, .[9:9], 0)
If IsError(col) Then Exit Sub
Set P = .Range(.Cells(10, col), .Cells(.Rows.Count, col).End(xlUp))
End With
For Each P In P
If P <> "" Then
[C11].Offset(n) = P
[H11].Offset(n) = P.Offset(, 1)
n = n + 1
End If
Next
End Sub