Salut barachoie,
salut Pedro, gmb,
et une petite dernière...
Double-clic sur 'SLA' pour démarrer la macro...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tData, tExtract(), iIdx!, sData$
'
Cancel = True
'
tData = Range("A1").Resize(Range("B" & Rows.Count).End(xlUp).Row, UsedRange.Columns.Count).Value
For x = 1 To UBound(tData, 1)
If Left(tData(x, 1), 1) <> "#" Then
iIdx = iIdx + 1
ReDim Preserve tExtract(UBound(tData, 2), iIdx)
For y = 1 To UBound(tData, 2)
tExtract(y - 1, iIdx - 1) = IIf(y = 1 And sData <> "", tData(x, 2), IIf(y = 4, sData, tData(x, y)))
Next
Else
sData = Replace(tData(x, 1), "#", "")
End If
Next
With Worksheets("Extract")
.Cells.Delete
.Range("A1").Resize(iIdx, UBound(tData, 2)).Value = WorksheetFunction.Transpose(tExtract)
.Columns("D").AutoFit
.Activate
End With
'
End Sub
A+