Macro pour faire une sélection

Sub tout()
For i = 1 To Range("A65536").End(xlUp).Row
    Rows(i).Select
    Selection.EntireRow.Hidden = False
Next i
End Sub

Sub groupe1()
fin = Range("A65536").End(xlUp).Row
Dim tab_temp(800) As Double
h = 1

For i = 1 To fin
nom = "Groupe1"
If Cells(i, 1) Like "*" & nom & "*" Then
    tab_temp(h) = i
    h = h + 1
End If
Next i

For i = 1 To UBound(tab_temp)
    If tab_temp(i) <> 0 Then
        Rows(tab_temp(i)).Select
        Selection.EntireRow.Hidden = True
    End If
Next i
End Sub

Sub groupe2()
fin = Range("A65536").End(xlUp).Row
Dim tab_temp(800) As Double
h = 1

For i = 1 To fin
nom = "Groupe2"
If Cells(i, 1) Like "*" & nom & "*" Then
    tab_temp(h) = i
    h = h + 1
End If
Next i

For i = 1 To UBound(tab_temp)
    If tab_temp(i) <> 0 Then
        Rows(tab_temp(i)).Select
        Selection.EntireRow.Hidden = True
    End If
Next i
End Sub

Sub groupe3()
fin = Range("A65536").End(xlUp).Row
Dim tab_temp(800) As Double
h = 1

For i = 1 To fin
nom = "Groupe3"
If Cells(i, 1) Like "*" & nom & "*" Then
    tab_temp(h) = i
    h = h + 1
End If
Next i

For i = 1 To UBound(tab_temp)
    If tab_temp(i) <> 0 Then
        Rows(tab_temp(i)).Select
        Selection.EntireRow.Hidden = True
    End If
Next i
End Sub