bonjour
s'il n'y a pas des cellules avec des erreurs ...
Sub Lignes()
ThisWorkbook.Names.Add "MonValeur", "Bitsch" 'rechercher la valeur "Bitsch"
fl = Filter([transpose(if(b1:b65000=MonValeur,row(b1:b65000),"~"))], "~", 0, 1) 'max 65.000 lignes
If UBound(fl) = -1 Then
MsgBox "rien"
Else
MsgBox Join(fl, vbLf)
End If
End Sub