Bonsoir,
Ericcoll02 bonsoir,
une autre proposition avec un SELECT et des RESIZE eet prend en compte le masquage si différent de A ou B :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K1")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Select Case Target
Case "A"
Range("A1").Resize(, 5).EntireColumn.Hidden = True
Range("A1").Resize(, 3).EntireColumn.Hidden = False
Case "B"
Range("A1").Resize(, 5).EntireColumn.Hidden = True
Range("A1").EntireColumn.Hidden = False
Range("D1").Resize(, 2).EntireColumn.Hidden = False
Case Else
Range("A1").Resize(, 5).EntireColumn.Hidden = True
End Select
Application.Goto Range("A1"), Scroll:=True
Range("K1").Select
End Sub
@ bientôt
LouReeD