Sub Pounds()
'
' affiche dans la fenêtre d'exécution les numéros de lignes
' qui contienent un format monétaire avec le symbole '£'
Dim c As Range
With ThisWorkbook.Sheets("Feuil1")
For Each c In .Range("A2:A32")
If c.NumberFormat Like "*£*" Then Debug.Print c.Row
Next
End With
End Sub