Transposition avec macro ?

Sub sélectionner_des_lettres_dans_colonne_C()
Dim i As Long, j As Long, n As Long, oList
oList = Array("G/3/04") ' Liste des lettres à sélectionner.
j = 325
For n = 0 To UBound(oList)
For i = 1 To 200
If Sheets("passage").Cells(i, 6).Value = oList(n) Then
j = j + 1
Sheets("Feuil2").Range(Sheets("Feuil2").Cells(j, 1), Sheets("Feuil2").Cells(j, 10)).Value = _
Sheets("passage").Range(Sheets("passage").Cells(i, 1), Sheets("passage").Cells(i, 10)).Value
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End If
Next i
Next n
End Sub

Cliquez pour agrandir...

DJ FA à dit:

Alors voici mon code.



Il fonctionne pour ce que je veux en faire, j'ai un soucis.

Il me copie bien les lignes désirées, cette macro sera utilisée chaque jours et donc j'ai constaté qu'en changeant la date qui se trouve à la fin de chaque ligne il m'efface la date précédemment collée. Je voudrais donc que quand la date est différente qu'il me copie les lignes en dessous des autres. Sachant que la date est sous format 03/10 et en colonne 10. 🙄

Cliquez pour agrandir...