bonjour
'pour rétablir cette barre, essaye :
Application.CommandBars("AutoCalculate").reset
'pour y insérer une nouvelle fonction
Sub NouvelleFonction()
With Application.CommandBars("AutoCalculate").Controls.Add
.Caption = "Difference"
.OnAction = "Difference"
End With
End Sub
Sub EffaceFonction()
Application.CommandBars("AutoCalculate").Controls("Difference").Delete
End Sub
bye
Stéphane