Cellules vides après filtrage

Bonjour le forum

je reviens vers vous,

voila, j'ai réussi à filtrer mes sillons mais j'ai encore un problème avec les colonnes

dans l'image ci dessous le problème est que je voudrais supprimer les cellules vides.

***********************************************************

Private Sub UserForm_Initialize()

  Dim ligne As Long, i As Long, h As Byte, cond, recherche
  Dim X As Integer, ws As Workbook
  Application.ScreenUpdating = False

  With Me.ListView1 'avec la liste view
   ' Me.ListView1.CheckBoxes = True
        'avec les colonnes choisis à mettre dans la listview
        With .ColumnHeaders
            .Clear 'On vide
            .Add , , "Sillon", 100, lvwColumnLeft '5
            .Add , , "Dép", 50, lvwColumnCenter '6
            .Add , , "Arr", 50, lvwColumnCenter '7
        End With
    .Gridlines = False 'déselectionne le cadriage
    .FullRowSelect = False 'Sélection des lignes complètes
    .Font.Bold = True 'style de la police
    .Font.Size = 10  'taille de la police 9
    .View = lvwReport
    recherche = Sheets("bd").Range("A2:P" & Sheets("bd").Range("A65000").End(xlUp).Row).Value '0n import les données de la journée a partir de la derniére ligne
    Me.ListView1.ListItems.Clear
    ligne = 1
    For i = 1 To UBound(recherche)
      On Error GoTo suite
      If esv1 <> "" Then cond = recherche(i, 1) = Val(esv1)
      If Not IsDate(recherche(i, 3)) Then GoTo suite
      If IsDate(madate) And IsDate(recherche(i, 3)) Then cond = CDbl(CDate(recherche(i, 3))) = CDbl(CDate(madate))
      If esv1 <> "" And IsDate(madate) And IsDate(recherche(i, 3)) Then
        cond = recherche(i, 1) = Val(esv1) And CDbl(CDate(recherche(i, 3))) = CDbl(CDate(madate))
      End If
      If cond Then
       With Me.ListView1
         .ListItems.Add , , recherche(i, 5)
         .ListItems(ligne).ListSubItems.Add , , Format(recherche(i, 6), "hh:mm")
         .ListItems(ligne).ListSubItems.Add , , Format(recherche(i, 7), "hh:mm")
       End With
       ligne = ligne + 1
      End If
suite:
    Next
  End With
  Application.ScreenUpdating = True
End Sub

le code que j'ai utilisé

merci d'avance de votre aide

Bonjour,

A+

Bonjour BrunoM45, le forum

ci joint le fichier

cordialement