Methode Range.Find et "commence par"

Bonjour,
Je souhaiterais récupérer le numéro de la première ligne dont le texte commence par 078, j'utilise:

Code:

---

1 2 3 4 5

DerLig As Double, PremCritr As Double, DerCRTIR As Double   DerLig = Sheets("ANNUAIRE").Range("A" & Rows.Count).End(xlUp).Row PremCritr = Sheets("ANNUAIRE").Range("A1:A" & DerLig).Find("078*", LookIn:=xlValues, lookat:=xlPart).Row

---

Qui me renvoie les numéros de ligne pour toute occurrence de 078 dans la cellule sans tenir compte du fait que je voudrais exclusivement 078XXXXX.
Idem si je remplace

Code:

---

*

---

par des

Code:

---

?

---

.

Je pense que la manip doit être possible?????

MERCI POUR TOUT COUP DE MAIN

re
essaie plutôt autofilter "commence par" ce sera plus facile non tu aura tes lignes d'un seul coup

En partant de ton conseil:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub UserForm2_Initialize()     DerLig As Double, PremCritr As Double, DerCRITR As Double   DerLig = Sheets("ANNUAIRE").Range("A" & Rows.Count).End(xlUp).Row Sheets("ANNUAIRE").Range("A2").AutoFilter Field:=2, Criteria1:="078*" PremCritr = Sheets("ANNUAIRE").Range("B2:B" & DerLig).SpecialCells(xlCellTypeVisible).Row     Sheets("ANNUAIRE").ShowAllData   Sheets("ANNUAIRE").Range("B2").AutoFilter Field:=2, Criteria1:="101*" DerCRITR = Sheets("ANNUAIRE").Range("B2:B" & DerLig).SpecialCells(xlCellTypeVisible).Row   Sheets("ANNUAIRE").ShowAllData

---

PARFAIT