Plage entre 2 cellules variables

Bonjour le forum,

J'ai un problème que je n'arrive pas à résoudre.

J'ai dans ma colonne A :

A1 = "TOTO"

A2="TOTO"

A3="TOTO"

A4="TOTO-1"

A5="TOTO-2"

AN="TOTO-N"

Ce que j'essaie de faire c'est de créer une plage à partir de la première cellule contenant un tiret c'est à dire A4 jusqu'à la dernière ligne N.

Je trouve donc la première cellule avec le tiret et la dernière cellule avec :

DernLigne = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Set RngPremTiret = Sheets("Feuil1").Range("a1:a" & DernLigne).Find("*-*", lookat:=xlWhole)
Set Rng = Sheets("Feuil1").Range("a" & DernLigne)

Du coup comment puis-je faire ensuite pour créer une plage entre "RngPremTiret" et "Rng" ?

Bonjour,

A tester !...

Public Sub xxx()
Dim LastRow As Long, Cell As Range, Rng As Range
    With Worksheets("Feuil1")
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set Cell = .Cells(1).Resize(LastRow).Find("-", LookIn:=xlFormulas, lookat:=xlPart)
        If Not Cell Is Nothing Then
            Set Rng = .Cells(Cell.Row, 1).Resize(LastRow - Cell.Row + 1)
            MsgBox Rng.Address
        End If
    End With
End Sub

Parfait ça marche merci beaucoup Jean-Eric