XL 2019 code de destockage

Bien le bonjour,

Je fais appel à vos âmes bienveillantes pour m'aider à résoudre mon problème. J'aimerai faire en sorte que le code :
- Trouve et sélectionne la cellule égale à la valeur Sheet("Destock").Range("D3") dans mon classeur,
- Et que dans la première cellule vide à droite de la cellule sélectionnée il me renseigne "Sheet("Destocks").Range("D2") + format(now, "dd/mm/yyyy")

Je mets en lien le document Excel sur lequel j'aimerai que le code fonctionne ...
Cela fais 3 semaines que je travailles sur mon code et je n'arrive pas à trouver la solution, j'ai essayer plusieurs choses et je pense que ce qui s'en rapproche le plus est ceci.

Public Sub CommandButtonDestock_Click()

Dim x As Date
Dim y As String, z As String

Dim sht As Worksheet
Dim rng As Range

x = Format(Now, "dd/mm/yyyy")
y = Sheets("Destock").Range("D2")
z = Sheets("Destock").Range("D3")

sht.Name = Sheets(Sheets("Destock").Range("D3"))
sht.Activate

Columns("F").Select

Set rng = Cells.Find(What:=z, After:=ActiveCell)

If Not rng Is Nothing Then
rng.Select

Else
MsgBox "not found"

End If

Range("IV1").End(xlToLeft)(1, 2).Select
ActiveCell.Value = "x ; y"

End Sub



Merci d'avance pour votre aide !