XL 2016 Sélectionner toutes les cellules dans une plage donnée

Option Explicit
Sub rech()
Dim Plage As Range, suite As Range, Valeur, debut As String

If ActiveCell.Value = "" Or Selection.Cells.Count > 1 Then
        MsgBox ("Il n'y a pas de valeur à chercher")
        Exit Sub
    End If
    Valeur = Selection.Value
    With ActiveSheet.Range("A1:G10")
        Set suite = .Find(Valeur, , xlValues, xlWhole)
        debut = suite.Address
        Set Plage = Selection
        Do
            If Not suite Is Nothing Then Set Plage = Application.Union(Plage, suite)
            Set suite = .FindNext(suite)
        Loop Until suite Is Nothing Or suite.Address = debut
    End With
    Plage.Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Range("A1:G10")
        If Target.Count = 1 And Not Intersect(Target, .Cells) Is Nothing Then
            .FormatConditions.Delete
            .FormatConditions.Add xlCellValue, xlEqual, "=" & Target.Value
            For Each Elem In Array(xlTop, xlBottom, xlLeft, xlRight)
                .FormatConditions(1).Borders(Elem).LineStyle = xlContinuous
            Next
        End If
    End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Range("A1:G10")
        If Target.Count = 1 And Not Intersect(Target, .Cells) Is Nothing Then
            .FormatConditions.Delete
            .FormatConditions.Add xlCellValue, xlEqual, "=" & Target.Value
            .FormatConditions(1).Borders.LineStyle = 1
        End If
    End With
End Sub