Function force_texte(mot)
If mot.NumberFormat = "0" Then
force_texte = Format(mot, "0")
ElseIf mot.NumberFormat = "0.0" Then
force_texte = Format(mot, "0.0")
ElseIf mot.NumberFormat = "0.00" Then
force_texte = Format(mot, "0.00")
ElseIf mot.NumberFormat = "0.000" Then
force_texte = Format(mot, "0.000")
ElseIf mot.NumberFormat = "0.0000" Then
force_texte = Format(mot, "0.0000")
End If
End Function