Problème lenteur macro selon PC ?

Bonjour à tous ! J'ai un problème à régler.

Mon fichier Excel avec macro fonctionne bien chez moi mais certaines macros deviennent lentes sur d'autres PC. On passe de 15 secondes à plus de 15 minutes ! et cela dépend des macros.

la macro concerné colle des données de textbox d'un userform dans une feuille base de données donc rien de compliqué.

ce peut-il que cela Vienne des paramètres d'Excel du PC en question ?

j'ai essayé de changer le code sans aucun résultat. Toujours rapide chez moi et lent sur certains PC.

avez vous une idée ?

Une info supplémentaire qui pourrait avoir de l'importance ...

Il semble que les PC concernées ont Excel sur un serveur ...

Bonjour,
Je suppose que effectivement le fait qu'Excel est sur un serveur ralenti inévitablement la vitesse de "travail".

Si tu veux en avoir le cœur net je peux que te conseiller d'essayer sur un troisième PC local et tester sa vitesse.

ERRATUM : vérification faite, Excel est bien installé sur chaque PC en version 2016 ...

Voici ci-dessous le code qui ne met que 15 secondes chez moi et une eternité chez certains PC avec en plus une bascule entre userform8 et Feuille"PARAMETRE" alors même que le code ne l'invite pas et que j'ai bien le Application.Screenupdating = False C'est à n'y rien comprendre ...

Private Sub VALIDER_Click()

Application.ScreenUpdating = False
 'vérification case famille non vide
If Me.ComboBox3 = "" Then
Select Case MsgBox("Veuillez selectionner un équipement", vbOKOnly, "Erreur de saisie")
Case vbOKOnly
Me.ComboBox3.SetFocus
End Select
Exit Sub
End If

Label35.Visible = True
UserForm8.Repaint

    Dim zh As Worksheet
    Dim z As Range
    Set zh = Worksheets("BdD")
    Set z = zh.[C:C].Find(ComboBox3, LookIn:=xlValues, LookAt:=xlWhole)

Sheets("BdD").Select
z.Activate

ActiveCell.Offset(, -2).Value = ComboBox6.Text              'secteur
ActiveCell.Offset(, -1).Value = ComboBox4.Text              'casernement
ActiveCell.Offset(, 1).Value = TextBox2.Text                'numéro de cuisine

ActiveCell.Offset(, 19).Value = TextBox17.Text              'désignation
ActiveCell.Offset(, 2).Value = TextBox26.Text               'fiche
ActiveCell.Offset(, 3).Value = TextBox4.Value * 1           'prix achat+ transformer format texte en format numérique
ActiveCell.Offset(, 5).Value = TextBox6.Text                'mise en service
ActiveCell.Offset(, 6).Value = TextBox8.Text                'duree garantie
ActiveCell.Offset(, 7).Value = TextBox7.Text                'numero de serie
ActiveCell.Offset(, 8).Value = TextBox9.Text                'puissance
ActiveCell.Offset(, 9).Value = TextBox10.Text               'pos-neg-mixte
ActiveCell.Offset(, 10).Value = TextBox11.Text              'FIXE MOBILE
ActiveCell.Offset(, 11).Value = TextBox12.Text              'ENERGIE
ActiveCell.Offset(, 12).Value = TextBox13.Text              'PRESSION
ActiveCell.Offset(, 13).Value = TextBox14.Text              'DIMENSIONS
ActiveCell.Offset(, 14).Value = TextBox15.Text              'POIDS
ActiveCell.Offset(, 15).Value = TextBox16.Text              'EMPLACEMENT
ActiveCell.Offset(, 16).Value = TextBox25.Text              'OBSERVATION
ActiveCell.Offset(, 17).Value = TextBox18.Text              'CAPACITE
ActiveCell.Offset(, 18).Value = TextBox19.Text              'MARQUE
ActiveCell.Offset(, 20).Value = TextBox21.Text              'NUM MARCHE
ActiveCell.Offset(, 21).Value = TextBox22.Text              'FOURNISSEUR
ActiveCell.Offset(, 4).Value = TextBox27.Text               'PA

ActiveCell.Offset(, 24).Value = TextBox28.Text              'PREVENTIVE LEGISLATIVE
ActiveCell.Offset(, 25).Value = TextBox29.Text              'PREVENTIVE PRECONISATION CONSTRUCTEUR
ActiveCell.Offset(, 26).Value = TextBox30.Text              'PREVENTIVE SUITE HISTORIQUE ET EXPERIENCE
ActiveCell.Offset(, 27).Value = ComboBox8.Text              'criticité

Application.ScreenUpdating = True

Sheets("PARAMETRE").Select
Unload UserForm8

End Sub