Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Range("A2:D" & Rows.Count).ClearContents 'RAZ
If [B1].Text = "" Then Exit Sub
With Feuil1 'CodeName
.AutoFilterMode = False
With .Range("AH7", .Cells(.Rows.Count, "AH").End(xlUp))
.AutoFilter 1, [B1].Text 'filtre automatique
.Offset(, -2).Resize(, 2).SpecialCells(xlCellTypeVisible).Copy [A2]
.Offset(, -4).Resize(, 2).SpecialCells(xlCellTypeVisible).Copy [C2]
End With
.AutoFilterMode = False
End With
End Sub