voila
j expose le probleme
soit les donnees suivantes dans la colonne A1
C1
dslkfds
fsalkjfas
sdafkfsd
end
C1
ejfdñsj
sdafkfsd
fsd
fsd
fs
end
C1
fdslkjsf
d
fdsg
fd
df
df
df
fd
end
voila la macro que j ai concocte, elle cree des groupes et en meme temps copie les valeurs de chaque groupe dans une feuille distincte
Sub grsfdsdfdouping()
Application.ScreenUpdating = False
Set actsh = ActiveSheet
Cells.ClearOutline
startCell = ""
ColumnACount = Application.Range("A1", Range("A65536").End(xlUp)).Rows.Count
For i = 1 To ColumnACount Step 1
If Range("A" & i).Value = "C1" Then ' startCell = "" Then
startCell = Range("A" & i).Address
rowStartcell = Range("A" & i).Row
For j = i + 1 To ColumnACount Step 1
If Range("A" & j).Value = "C1" And startCell <> "" Or Range("A" & j).Row = ColumnACount Then
endCell = Range("A" & (j - 1)).Address
rowEndCell = Range("A" & (j - 1)).Row
If Range("A" & j).Row = ColumnACount Then rowEndCell = Range("A" & j).Row
'Range(Cells(rowStartcell + 1, 1), Cells(rowEndCell, 1)).Select
'Selection.Rows.Group
Range(Cells(rowStartcell + 1, 1), Cells(rowEndCell, 1)).Rows.Group
Set x = Sheets.Add(after:=Sheets(1))
actsh.Range(actsh.Cells(rowStartcell, 1), actsh.Cells(rowEndCell, 1)).Copy Destination:=x.[A1]
actsh.Activate
startCell = ""
'i = j + 1
Exit For
End If
Next j
End If
Next i
ActiveSheet.Outline.ShowLevels RowLevels:=1
'ActiveWindow.DisplayOutline = False
Range("A1").Select
End Sub
je suis preneur de toute soluce, celle-ci etant un peu bourrin
bye