Bonsoir Dany
Je ne veux pas trop m'avancer mais, pour l'année range("b2") = format (Year, "yyyy"). Mais aussi, changer Year par Annee, Year fait partie des fonctions Excel, tout comme Month et Day.
Pour les autres, deux colonnes supplémentaires; une avec les codes, l'autre avec la marque.
ensuite tu pourra faire comme ceci
With activesheet
rw = application.match(Make, .Columns(codes), 0)
.Range("g2") = .Cells(rw, colonne(marque))
End With