Dim Recherche As Range Set Recherche = Columns(12).Find(Sheets("Archives").Range("N1").value, LookIn:=xlValues, LookAt:=xlWhole) If not recherche is nothing then MsgBox "Trouvé à la ligne " & Recherche.Row end if
If not Recherche is nothing then Recherche.EntireRow.Select
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionIf not Recherche is nothing then Recherche.Select