Simplifier un code VBA

Bonsoir

est-il possible de simplifier ce code

Je vous remercie

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then Columns(1).AutoFit
If Target.Column = 2 Then Columns(2).AutoFit
If Target.Column = 22 Then Columns(22).AutoFit
If Target.Column = 23 Then Columns(22).AutoFit
If Target.Column = 24 Then Columns(22).AutoFit
If Target.Column = 25 Then Columns(22).AutoFit

End Sub

Bonsoir,

Ainsi?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 Or (Target.Column >= 22 And Target.Column <= 25) Then Target.EntireColumn.AutoFit
End Sub

Bonne fin d'apm

Bonsoir,

dans l'absolu, peut importe la colonne modifiée lors du "Change", il suffit de faire l'autofit sur les colonnes désignées :

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("A:B,V:Y").EntireColumn.AutoFit
End Sub

@ bientôt

LouReeD

Bonjour

Merci pour votre aide

Crdlt

Bonsoir,

merci @ vous pour votre retour et remerciement !

@ bientôt

LouReeD