Sub RechercheTable()
'déclaration des variables :
Dim Table As String, TableSuivante As String
Dim Feuil As String
Dim LigDeb As Long, LigFin As Long
Feuil = Foire.CB_Service
'--------------------------Déduit du Stock / Même référence que la boisson ------------------------------------------
Worksheets(Feuil).Activate
With Sheets(Feuil)
Table = Foire.TB_Table
'Chercher la première ligne de la table
LigDeb = .Range("A:A").Find(What:=Table, LookIn:=xlValues, lookat:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False).Row
' Table suivante
TableSuivante = Left(.Range(Table & 1).Offset(0, 1).Address(0, 0), 1)
' Ligne de fin de la table = ligne table suivante -1
LigFin = .Range("A:A").Find(What:=TableSuivante, LookIn:=xlValues, lookat:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False).Row - 1
' Selection de la zone
Range("A" & LigDeb & ":A" & LigFin).Select
End With
End Sub