Re,

Il faut le modifier à l'ouverture de chaque fichier car les paramètres sont sauvegardés en même temps que les données. A mon avis aucune possibilité de faire autrement... L'important n'est pas de connaître l'information, mais de
savoir où la trouver (Albert Einstein)

Bonjour,
j'ai le même problème des calculs automatiques qui se désactivent tout le temps. Je voudrais cumuler cette macro dans "this workbook" avec une autre macro qui y figure déjà. Je ne sais pas comment procéder. Comme ça?:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "0230" Or Sh.Name = "calculs1 0230" Or Sh.Name = "calculs2 0230" Then
Sheets(Array("0230", "calculs1 0230", "calculs2 0230")).Select
End If
If Sh.Name = "0214" Or Sh.Name = "calculs1 0214" Or Sh.Name = "calculs2 0214" Then
Sheets(Array("0214", "calculs1 0214", "calculs2 0214")).Select
End If
If Sh.Name = "0141" Or Sh.Name = "calculs1 0141" Or Sh.Name = "calculs2 0141" Then
Sheets(Array("0141", "calculs1 0141", "calculs2 0141")).Select
End If
End Sub
Private Sub Workbook_Open()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
On Error GoTo Sortie
Exit Sub
Sortie:
End Sub

Est-ce-que je peux juxtaposer ces deux formules tel quel?
Merci beaucoup pour la réponse!