Selection des lignes contenant une valeurs

Option Explicit
Option Compare Text

Sub Bonjour()
Dim SearchString As String
Dim Cell As Range, Plage As Range
Dim Counter As Integer

SearchString = InputBox('La String a trouver en colonne A')

Set Plage = Range(Range('A2'), Range('A65536').End(xlUp))

For Each Cell In Plage
    If Cell = SearchString Then
        Cell.Clear
        Counter = Counter + 1
    End If
Next

Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Rows('2500:' & 2500 + Counter).Insert Shift:=xlDown

End Sub

Cliquez pour agrandir...