Sub Agrandissement_Reduction()
' Agrandissement_Reduction Macro
Dim r As Range
Set r = ActiveCell
Agrandissement:
ActiveSheet.Unprotect
Columns("D:BB").ColumnWidth = 13.1
If Range("BF2").Value = "0" Then
Range("BF2").Value = "1"
Application.Goto r ',True ' ici décommentes et testes
GoTo Fin
Else
GoTo Reduction
End If
Reduction:
ActiveSheet.Unprotect
Range("C:F,H:I,K:L,N:O,Q:Q,R:R,T:U,W:AA,AC:AD,AF:AG,AI:AJ,AL:AM,AO:AP,AR:AS,AU:AV,AX:AY,BA:BB").ColumnWidth = 0.1
Range("BF2").Value = "0"
Application.Goto r ', True '' ici décommentes et testes
Fin:
'
End Sub