Bonjour,
On va peut-être y arriver !
Avec le code ci-dessous çà devrait marcher :
Option Explicit
Sub Transpose()
Dim DerniereColonne As Integer
Dim DerniereLigne As Integer
Dim DerniereLigneCopiee As Integer
Dim i As Integer
DerniereColonne = Range("B1").End(xlToRight).Column
For i = 1 To DerniereColonne - 1
Range("A1").Offset(0, i).Select
DerniereLigne = WorksheetFunction.Match("#FLAG", Columns(i + 1), 0)
Range(ActiveCell, ActiveCell.Offset(DerniereLigne, 0)).Copy
If i = 1 Then
DerniereLigneCopiee = 128
Range("A129").Select
Selection.PasteSpecial Paste:=xlValues
Else
Range("A" & CStr(DerniereLigneCopiee + 1)).Select
Selection.PasteSpecial Paste:=xlValues
End If
DerniereLigneCopiee = DerniereLigneCopiee + DerniereLigne
Next
DerniereLigne = 128
Range("B1", Range("B1").Offset(DerniereLigne, DerniereColonne)).Clear
Range("A1").Select
End Sub
@+