Microsoft 365 Selectionner toutes les cellules contenant @

Sub Test()

    Sel_String "@", ActiveSheet.Columns("B")
    
End Sub

Sub Sel_String(To_Find As String, Plage As Range)
Dim Cel As Range, Adr As String
    Set Cel = Plage.Find(To_Find, , xlValues, xlPart)
    Do While Not Cel Is Nothing
        If Adr = "" Then
            Adr = Cel.Address
            Cel.Select
        Else
            Union(Selection, Cel).Select
        End If
        Set Cel = Plage.FindNext(Cel)
        If Cel.Address = Adr Then Set Cel = Nothing
    Loop
End Sub