Copier les donner d'une colonne à une autre dans la première cellule vide

Bonjour à tous.

J'ai une macro qui me permet d'archiver les données d'une facture dans un onglet.

Dans la pratique, dès que j'active le bouton, les données que je veux transférer sont automatiquement transférées en dessous de la dernière ligne non vide. (du haut vers le bas)

Voici la procédure (Je transfère les données de la feuille facture à la feuille Archivage) :

ligne=sheets("Archivage"). Range("B7"). End(xldown). Row+1

Sheets("Archivage"). Range("C" & ligne).value = sheets("Facture"). Range("G14")

Je dois dire que ça fonctionne à merveille.

Maintenant, je voudrais faire exactement la même chose, mais en colonne (de la gauche vers la droite). Je suis bloqué.

Et ça devient hyper urgent pour moi, s'il vous plaît. Je suis à la bourre. À l'aide...

Bonjour,

A tester =>

col=sheets("Archivage"). Cells(7, Columns.Count).End(xlToLeft).Column+1

Sheets("Archivage"). Cells(7,col).value = sheets("Facture"). Range("G14")

C'est parfait.

Merci beaucoup.

Bonjour à tous.

La procédure ne fonctionne plus d'un coup, je ne sais pas pourquoi.

Quand je vais sur la ligne en jaune (Sheets("Paramétrage").Cells(6, col).Value = Sheets("Paramétrage").Range("AJ6")), il y a un message box qui s'affiche (col 53) lorsque le curseur est positionné sur la référence "col". J'y comprends rien.

PS: ça ne fonctionne pas depuis que j'ai actualisé le TCD dans lequel il va chercher les données.

Sincères gratitudes d'avance pour vos contributions.