Sélectionner des lignes contenant un "d_" dans la colonne B

Sub test()
Dim Plage As Range, c As Range
With Worksheets(1).Range("B1:B" & Range("B65500").End(xlUp).Row)

    Set c = .Find("d_")
    If Not c Is Nothing Then
        firstAddress = c.Address
        Set Plage = c
        
        Do
            Set c = .FindNext(c)
            Set Plage = Union(Plage, c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
Plage.Select
End Sub

Sub test()
Dim Plage As Range, c As Range
Dim Adr As String
With Worksheets(1).Range("B1:B" & Range("B65500").End(xlUp).Row)

    Set c = .Find("d_")
    If Not c Is Nothing Then
        firstAddress = c.Address
        Adr = c.Address
        Do
            Set c = .FindNext(c)
            Adr = Adr & "," & c.Address
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
Range(Adr).Select
End Sub

Sub test2()
'***Pour sélectionner les lignes correspondant au critère.
Dim Plage As Range, c As Range
Dim lig As String
With Worksheets(1).Range("B1:B" & Range("B65500").End(xlUp).Row)

    Set c = .Find("d_")
    If Not c Is Nothing Then
        firstAddress = c.Address
        lig = c.Row & ":" & c.Row
        Do
            Set c = .FindNext(c)
            lig = lig & "," & c.Row & ":" & c.Row
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
Range(Adr).Select
End Sub

Sub test2()
'***Pour sélectionner les lignes correspondant au critère.
Dim Plage As Range, c As Range
Dim lig As String
With ActiveSheet.Range("B1:B" & Range("B65500").End(xlUp).Row)

    Set c = .Find("d_")
    If Not c Is Nothing Then
        firstAddress = c.Address
        lig = c.Row & ":" & c.Row
        Do
            Set c = .FindNext(c)
            lig = lig & "," & c.Row & ":" & c.Row
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
ActiveSheet.Range(lig).Select
End Sub

Sub test()
'***Pour sélectionner les lignes correspondant au critère.
Dim Plage As Range, c As Range
Dim Adr As String
With ActiveSheet.Range("AJ17:AJ" & Range("AJ65500").End(xlUp).Row)

    Set c = .Find(0, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Adr = c.Address
        lig = c.Row & ":" & c.Row
        Do
            Set c = .FindNext(c)
            Adr = Adr & "," & c.Address
            lig = lig & "," & c.Row & ":" & c.Row
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
ActiveSheet.Range(lig).Select
Selection.clearcontents
End Sub