Bonjour, Il n'y a pas que votre code qui ne comprend pas ??
Expliquez d'abord ce que vous cherchez à faire. vous parlez de coller "paste" n'apparaît nul part dans votre code.
Par ailleurs vous sélectionnez des données en colonne de C5 à C16 soit 12 données
ensuite vous sélectionnez une plage de A4 à J4 soit 10 cellules ????
Dans le cas ou vous souhaitiez écrire que les cellules de la feuille "Base de données" de A4 à L4 (12 données) doivent être égales aux cellules de C5 à C16 (12données aussi)
alors ce n'est pas un simple copié collé car la destination est en ligne alors que la copie est en colonne.
Il faudra utiliser la fonction transpose dans ce cas. Et une simple égalité suffit pas besoin de copier coller.
Sheets("Base de données").Range("A4:L4").Value = Application.WorksheetFunction.Transpose(Range("C5:C16"))