En fait je fais pas un littéralement un copier/coller.
Tout d'abord je stock dans un tableau (demande si tu ne vois pas ce que c'est) chaque parti de la date en séparant par "/" (split), par exemple:
17/07/2019 devient dateComplete(0) = 17; dateComplete(1) = 07; dateComplete(2) = 2019;
On a donc le numéro du mois. Je stock dans un autre tableau le nom des mois par ordre dans le tableau LesMois.
Je récupère le nom du mois avec LesMois(dateComplete(1)), ce qui me retourne "Juillet" pour 07.
Puis
.Find(LesMois(dateComplete(1))).Offset(0, 1)
permet de trouver la cellule égale à Juillet (grâce à find) et de décaler d'une cellule à droite avec Offset.
Enfin je prend la valeur qui m’intéresse
Range("D8").Value
et je stock cette valeur dans la cellule que j'ai identifier précédemment.
Pour ce qui est du copier/coller, j'ai fais quelque chose de semblable à ça :
a = 1
b = 2
a = b
'Valeur final : a = 2 et b= 2
N'hésite pas si tu as encore des questions ou si je n'ai pas été suffisamment clair.