Non, j'ai seulement les codes ci-dessous :
Sub masquer()
Dim cel As Range
For Each cel In Range("D4:AY4")
If cel = Range("A7") Then
cel.EntireColumn.Hidden = False
Else: cel.EntireColumn.Group
End If
Next
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End Sub
Sub afficher()
Dim cel As Range
For Each cel In Range("D4:AY4")
cel.EntireColumn.Hidden = False
Next
Columns("D:AY").Select
Selection.Columns.Ungroup
End Sub
Quand je désactive le calcul automatique, cela fonctionne.
Le fichier se calcul automatiquement constamment.
J'ai des formules matricielles dedans.
Merci,