Si la valeur ="" copie la valeur dans le troisième case a gauche

Bonjour l'équipe,

J'ai un petit problème je m'explique :

je veux écrire un macro qui sert à :

a chaque fois qu'il me trouve la valeur "34567" dans dans la cellule("X9:X40") il me copie cette valeur dans la troisième case a gauche bien précisement Range("U9:U40").

espère que j'étais clair

merci beaucoup pour votre aide

Bonjour

Sub CopieValeur()
  Dim cl As Range
  For Each cl In Range("X9:X40")
    If cl.Value = 34567 Then
      cl.Offset(0, -3) = cl.Value
    End If
  Next cl
End Sub

merci bien pour ta réponse ça fonctionne mais pas comme j'ai voulu j'ai oublié de préciser que il copie a valeur dans la troisième case que seulement si elle est vide.

if Range("U9")=" "

if Range("U10")=" "

...

...

if Range("U40")=""

Sub CopieValeur()
  Dim cl As Range
  For Each cl In Range("X9:X40")
    If cl.Value = 34567 and cl.Offset(0, -3).value = "" Then
      cl.Offset(0, -3) = cl.Value
    End If
  Next cl
End Sub