Bonjour
essaye ceci :
Public Sub nychko()
dim c as range
For Each c In Range("a1:a" & Range("a5000").End(xlUp).Row)
If c.Value Like "sous-total" Then
Range("a1:a" & c.Offset(-1, 0).Row).EntireRow.Copy
End If
Next c
End Sub
si tu veux la ligne sous-totaux dans ta selection :
Range("a1:a" & c.row).EntireRow.Copy
salut
Hervé