Re : les barres d'outils et d'etat ne sont plus actives
Bonjour.
Même si tu n'es pas poli, essaie ces lignes de codes :
Sub ResetCommandBars()
Dim x
On Error Resume Next
For x = 1 To Application.CommandBars.Count
With Application.CommandBars(x)
.Reset
.Enabled = True
End With
Next x
End Sub