Bonjour,
Hosni a écrit :
Je suis trop fort en VBA
La chance !
Pour ton problème, essaye de mettre ce code dans la procédure de la feuille "liste" sous VBA !
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range
If Target.Address = "$A$1" Then
Set plage = Range("D3:BK3")
plage.EntireColumn.Hidden = False
For Each cel In plage
If UCase(cel) <> UCase(Target.Value) Then
cel.EntireColumn.Hidden = True
End If
Next cel
End If
End Sub
A plus !