selection des lignes a partir d' un critere

Sub Macro2()
 
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel1 As Range 'déclare la variable cel1 (CELulle 1)
Dim cel2 As Range 'déclare la variable cel2 (CELulle 2)
Dim lis() As Integer 'déclare le tableau de variables lis (LIgneS)
Dim x As Integer 'déclare la variable x
 
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
 
    Set pl = .Range("N3:N" & .Range("N65536").End(xlUp).Row) 'définit la variable pl
    For Each cel1 In pl 'boucle 1 : sur toutes les cellules de la plage pl
        'boucle 2 : sur toutes les cellules éditées de la colonne C
        For Each cel2 In .Range("C3:C" & .Range("C65536").End(xlUp).Row)
            If cel1.Value = cel2.Value Then 'condition : si les cellules sont identiques
                ReDim Preserve lis(x) 'redimensionne le tableau de variable lis
                lis(x) = cel2.Row 'définit la valeur de la variable (le numéro de ligne de la cellule cel2)
                x = x + 1 'redéfinit la variable x
            End If 'fin de la condition
        Next cel2 'prochaine cellule éditée de la colonne C
    Next cel1 'prochaine cellule de la plage pl
    Rows(lis(0)).Select 'sélectionne la première ligne trouvée
    For x = 1 To UBound(lis, 1) 'boucle sur toutes les lignes trouovée (moins la première)
        Application.Union(Selection, Rows(lis(x))).Select 'rajoute la ligne à la sélection
    Next x 'prochaine ligne
 
End With 'fin de la prise en compte de l'onglet "Feuil1"
 
End Sub