Ralentissement

Bonjour à tous,

Je viens de commencer la création d'un petit CRM avec une page d'accueil, des boutons renvoyant vers certains onglets qui sont cachés à l'ouverture. Sur ces onglets, une flèche de retour renvoyant sur l'onglet d'accueil.

J'ai du mal faire un truc car ce fichier pourtant si léger a des ralentissements. J'ai déjà désactivé toutes mes formules. Toujours ralentissement, donc cela doit venir de mes macros. Mais là je bloque.

La macro qui affiche et sélectionne les onglets activés par boutons (un bouton = une macro qui ouvre un onglet) :

Sub Onglet_Fournisseurs()
With Sheets("Fournisseurs")
.Visible = True
.Select
End With
If Range("A2") <> "" Then
Range("A65000").End(xlUp).Offset(1).Select
Else
Range("A2").Select
End If
Sheets("Accueil").Visible = False
End Sub


La macro qui renvoit sur l'onglet Accueil

Sub Retour_Accueil()
Sheets("Accueil").Visible = True
ActiveSheet.Visible = False
Sheets("Accueil").Activate
Range("A1").Select
End Sub

Mon fichier :
https://mon-partage.fr/f/dBwVptvH/

Une idée?

Merci à vous
Benoît