Public Sub Sandwich()
Dim c1 As Range, c2 As Range, Plage12 As Range
Dim firstAddress As String
With ActiveSheet.Range("B:B")
Range("B1").Select
'recherche du premier "Test"
Set c1 = .Find(What:="Test", After:=ActiveCell, LookIn:=xlFormulas, _
lookat:=xlPart, SearchOrder:=xlByColumns, SearchFormat:=False)
If Not c1 Is Nothing Then
firstAddress = c1.Address
Do
Set c2 = .FindNext(c1) 'recherche du "Test" suivant
If c2 Is Nothing Or c2.Address = firstAddress Then Exit Do
'détermination de la plage entre les deux "Test"
Set Plage12 = Range(c1, c2).Offset(1, 0).Resize(Range(c1, c2).Count - 2, 1)
Plage12.Select 'Plage entre les deux tests
Set c1 = c2 'rebouclage
Loop While Not c1 Is Nothing And c1.Address <> firstAddress
End If
End With
End Sub