Aide VBA - Copier/Coller lignes(variables) sur une seule ligne

Bonjour à vous,

Je vous sollicite car j'ai grandement besoin de vous.

Je souhaiterai à partir d'une feuille "Données initiales" copier certaines lignes en fonction de la condition suivante :

- Lorsque le nom est le même en colonne A. (J'ai dans mon fichier parfois plus de vingt 20 noms similaires qui se suivent).

Mais je souhaiterai les coller d'une manière spéciale sur une autre page :

- Regrouper l'ensemble des informations d'un même nom sur une seule ligne (potentiellement avec 50 colonnes voire plus).

Est ce que vous pensez que c'est réalisable?

Merci d'avance,

Théo

Sub Macro1()

ligne = 2
colonne = 1

For j = 4 To 14

Worksheets("Données initiales").Activate
Cells(j, 1).Activate

If ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value Then

ligne = ligne + 1
colonne = 1
x = 0

Else: colonne = colonne + 11
x = 1

End If

For i = x To 10
Worksheets("Objectif").Cells(ligne, colonne + i).Value = ActiveCell.Offset(0, i).Value
Next

Next

End Sub

Hello,

Merci infiniment, à l'occasion je te payerai une bière

Théo

Pas une Corona, j'espère ?