Saturation d'une cellule par code

Bonjour à tous, merci par avance à l'&ide que vous allez m'apporter.

J'effectue le code tout simple suivant

Pardon j'ai fait une fausse manœuvre et je ne sais pas revenir en arrière.

J'effectue un code tout simple

For i = 1 To Fin

h=Len(Cells(i,4).value)' rajout pour essayer de comprendre ce qu'il ce passe

If Cells(i,3).Value = "" Then Cells(i,3).value = Cells(i,4).Value

Next i

Cela fonctionne très bien mais dans une cellule de la colonne 4 où il n'y a que des chiffres j'ai un petit triangle vert (disant nombre stocké sous forme de texte) en haut à gauche de la cellule; la cellule donne pour h la valeur 12 caractères

et le résultat est une saturation de la cellule avec des "#". ??

pour compliquer les choses j'ai plus bas une cellule de la colonne 4 qui à aussi un petit triangle vert disant (nombre stocké sous forme de texte) et qui a h = 10 caractères. La formule renvoi dans la cellule Cells(i,3) les mêmes caractères mais en chiffre ce qui est semble t-il normal !

Ce que j'aimerai arriver à faire c'est de vider la cellule saturée.

pouvez vous m'aider

Par avance merci

Bonsoir avec un fichier joint cela aurait été plus facile

Vu le nombre de demandes que tu as pu faire je m’aperçois que tu ne joins pratiquement jamais de fichier ????

A tester

For i = 1 To Fin
    h = Len(Cells(i, 4).Value)

    If Cells(i, 3).Value = "" Then
        If IsNumeric(Cells(i, 4).Value) Then
            Cells(i, 3).Value = CDbl(Cells(i, 4).Value)
        Else
            Cells(i, 3).Value = Cells(i, 4).Value
        End If
    End If

    ' Si la longueur de la cellule dépasse une certaine limite, on la vide
    If h > 12 Then ' Vous pouvez ajuster cette valeur selon vos besoins
        Cells(i, 4).Value = ""
    End If
Next i

Joco7915, merci pour ta réponse qui me convient parfaitement