Sub reinitBis()
CommandBars(1).Controls("Insertion").Controls("Lignes").Enabled = True
CommandBars(1).Controls("Insertion").Controls("Colonnes").Enabled = True
Application.CommandBars("Cell").Reset
Application.CommandBars("Column").Enabled = True
Application.CommandBars("Row").Enabled = True
End Sub