XL 2010 Copie partielle d'une cellule à une autre

[Christian_67240]

Bonjour

Je dois copier les 5 premiers caractères d'une cellule dans une autre (qui est vide)
J'arrive bien à copier la cellule entière, mais je n'arrive pas à copier seulement les 5 premiers caractères

Ce que j'ai vu dans les discutions similaires me semble bien trop compliqué ou n'est pas du VBA

si quelqu'un peut m'aider.
merci d'avance.

Sub copy_num()

Dim x
Dim y
Dim Code

For x = 37 To 289
Code = Left(Range("A" & x), 5)
Worksheets("Feuil1").Range("A" & x).Copy DESTINATION:=Worksheets("Feuil1").Range("B" & x + 1)

Next
End Sub

 

[Claudy]

Bonjour et avec ça?
Sub copy_num()

Dim x
Dim y
Dim Code

For x = 37 To 289
Code = Left(Range("A" & x), 5)
Range("B" & x + 1) = Code

Next
End Sub

A+ Claudy

 

[Christian_67240]

Impeccable
Merci beaucoup