Mise en forme de données par macro

Bonjour

Il s'agit d'un formulaire rempli par des clubs sportifs renseignant des manifestations que je collationne et les enregistre dans un fichier Excel.
Les données sont ensuite remises en forme avant publication et impression.
Voici un extrait du fichier réel et le rendu souhaité en CH74.
je souhaite que la ligne 4 soit tanscrite dans CH79 - CN83 de la mêmemanière que la ligne 3 l'est dans CH77 - CN78

Et ainsi de suite jusqu'à la dernière ligne où la macro devra s'arrêter.

Je ute sur deux problèmes :
comment recopier la ligne 4 sur les lignes 79 à 84 ?
comment arrêter la macro à la dernière ligne ?

Merci d'avance pour votre aide
Patrick.

Bonsoir,

Le fichier joint contient des données. A moins qu'elles soient bidons, c'est un peu limite avec le RGPD..
Et le tableau est dur à lire, une version raccourci ou simplifiée aurait été plus cool.


Pour chercher la dernière ligne du tableau

Code:

---

1 2	dim DerLigne as row range("A10000").end(xlup).row ' partir d'un endroit du tableau puis remonter pour s'arrêter au dernier row non vide. Ce row donne donc la dernière ligne remplie(

---

Puis faire une boucle pour copier chaque ligne jusqu'à la dernière

Code:

---

1 2 3 4 5 6

For i = 4 to DerLigne range("ch79").value = cells((i, 1).Value range("ci79").value = cells((i, 15).Value 'les colonnes indiquées sont bidons range("cj79").value = cells((i, 28).Value range("ck79").value = cells((i, 3).Value 'etc, etc

---

au changement de i, prévoir un saut de 4 lignes pour repartir du bon endroit
et donc peut être prévoir une variable pour remplacer le numéro de la ligne CH79 et ainsi rajouter 4 à la variable lorsque une ligne i est faite

Bonjour 419,
Je m'interroge sur l'utilité de cette boucle car en finale les colonnes ch, ci, cj et ck de la ligne 79 auront les valeurs des colonnes 1, 15, 28 et 3 de la dernière ligne