Suppression Interligne

Private Sub CommandButton3_Click()
Dim i As Integer
Dim Plage As Range
Dim Ligne As Range
Dim lig As Range
Dim Lignes As Range
Dim Lignes1 As Range
Dim c As Range
Dim adr1 As String
    With Worksheets("Powers-P")                                                    '--Début de la recherche des items cochés dans la ListBox1--
    
    Set Plage = .Range("C16:C" & .Range("C" & .Rows.Count).End(xlUp).Row)
    End With

    With UserForm1.ListBox1
          For i = 0 To .ListCount - 1
            If .Selected(i) Then
                Set c = Plage.Find(.List(i), LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows)
                If Not c Is Nothing Then
                    adr1 = c.Address
                    Do
                        If Ligne Is Nothing Then Set Ligne = c Else Set Ligne = Union(Ligne, c)
                        Set c = Plage.FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> adr1
                End If
            End If
        Next i
    End With                                                                        '--Fin de la recherche des items cochés dans la ListBox1--
    If Not Ligne Is Nothing Then
[B][COLOR="RoyalBlue"]       Range("A" & ligne.Row & ":A" & ligne.Row + 1).EntireRow.Delete[/COLOR][/B]
       Call tyty
      
       '--Suppression des lignes dans la feuille et de l'Item dans de la ListBox--
        
       'UserForm2.CommandButton1.Visible = False                                     '--Masque le bouton suppression de la feuille "POWERS-P6" dans l'UserForm2--
    End If