Microsoft 365 Calcul incorrect avec Excel 365, mais correct avec Excel 2019.

Bonjour,

Je suis nouveau sur ce FORUM, Je débute en langage VBA, et j'en apprend de plus en plus tous les jours grâce à vous.

Pour mon premier projet j'ai copié un code sur le net et je l'ai adapté à mes besoins.

j'ai deux PC "perso et boulot" sur le perso" avec Excel 2019", le fichier fonctionne correctement, mais sur celui du boulot "avec Excel 365", il y a un problème sur un calcul de division avec les colonnes H et I

Voici le calcul pour la colonne H =$G$2/$F$2 et celui pour la colonne I =$E$2/$H$2

Excel devrait normalement afficher 2352.1 pour H et 1.025 pour I

Malgré diverses essais, je ne trouve pas la solution.

Merci pour votre aide.

voici le code:



Private Sub CommandButton1_Click()
If TextBox9.Value = "" And TextBox10.Value = "" Then
MsgBox "Veuillez renseigner les champs "
Else
Dim ligne As Integer
If MsgBox("confirmez-vous l'ajout de cet essai?", vbYesNo, "confirmation") = vbYes Then
Worksheets("BD").Select
ligne = Sheets("BD").Range("A456541").End(xlUp).Row + 1
Cells(ligne, 1) = Format(TextBox1.Value, "mm/dd/yyyy")
Cells(ligne, 2) = TextBox9.Value
Cells(ligne, 3) = TextBox10.Value
Cells(ligne, 4) = TextBox2.Value
Cells(ligne, 5) = TextBox3.Value
Cells(ligne, 6) = TextBox4.Value
Cells(ligne, 7) = TextBox5.Value


Cells(ligne, 8).FormulaLocal = "=" & Cells(ligne, 7).Address & "/" & Cells(ligne, 6).Address
Cells(ligne, 8).NumberFormat = "0.0"
Cells(ligne, 9).FormulaLocal = "=" & Cells(ligne, 5).Address & "/" & Cells(ligne, 8).Address
Cells(ligne, 9).NumberFormat = "0.000"

'Cells(ligne, 8) = TextBox6.Value ( code d'origine )
'Cells(ligne, 9) = TextBox7.Value
Cells(ligne, 10) = TextBox8.Value
Cells(ligne, 11) = TextBox13.Value

Unload UserForm2
UserForm2.Show
Else
End If
End If
End Sub

P