Bonjour,

Je cherche a faire une macro qui pour un numero de dossier données recopierais des informations dans une meme ligne:
Je m'explique:

J'ai une colonne ou j'ai plusieurs numero de dossier:

et une seconde ou j'ai des informations:

A B
1 il fait beau
1 le soleil brille
1 la temperature est de 19°C
1 je suis venu en vélo
2 J'ai un enfant
2 c'est une fille
3 J'ai une voiture
7 Mon ordinateur ne fonctionne pas
7 il n'est pas branché...
8 C'est mon anniversaire
8 je suis née le 22

Alors l'objectif serait, dans une autre feuille que je crée, de rassembler une meme cellule les données pour un numero de dossier
cad:

A B
1 il fait beau le soleil brille la temperature est de 19°C je suis venu en vélo
2 J'ai un enfant c'est une fille
3 J'ai une voiture
7 Mon ordinateur ne fonctionne pas il n'est pas branché
8 C'est mon anniversaire je suis née le 22

Pour l'instant voila ou j'en suis et ça ne donne pas grand chose:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub addi()
 
Dim i As Integer
Worksheets.Add
Worksheets(2).Activate
derligne = Worksheets(2).Cells(65535, 1).End(xlUp).Row
 
 
   For i = 2 To derligne
     If Cells(i, 1).Value <> Cells(i + 1, 1).Value Then
          i = i + 1
          Worksheets(1).Cells(i, 1).Copy Destination:=Worksheets(1).Cells(i, 1)
     End If
   Next
 
 
 
End Sub

Quelqu'un aurait une idée ???
Merci .