Lignes sélectionnées

Salut les amis,

J'ai des lignes remplis dans une feuille excel et une bouton d'exécution, ce que je voulais faire :

je sélectionne des cellules dans la colonne A exemple : A2 A7 A9 .. le premier ligne de la feuille n'est pas concerné

A l'exécution je veux garder les lignes des cellules sélectionnée et supprimer toutes les autres lignes de la feuille. Je travaille sur 1000 lignes seulement.

Merci d'avance

Bonjour,

Essayez ceci:

Sub Supprimer()
    Dim Plage As String
    Dim DerLig As Long, i As Long
    Application.ScreenUpdating = False
    Plage = Selection.Address
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    For i = DerLig To 2 Step -1
        If InStr(1, Plage, Cells(i, "A").Address, 1) = 0 Then Rows(i).Delete
    Next i
End Sub

Cdlt

Merci beaucoup rapide et efficace

Bonjour Arturo,

Votre code fonctionne très bien sauf que parfois il me laisse une ou deux lignes que j'ai pas sélectionner en haut de la feuille ? j'ai essayer de résoudre sans succès.

Merci pour votre aide

Bonjour,

Dans cette ligne, remplacez le 2

 For i = DerLig To 2 Step -1

par 1

 For i = DerLig To 1 Step -1

Cdlt