Supprimer une ligne si cellule d'une colonne remplie

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If .Column = 6 Or .Column = 7 Or .Column = 8 Then .Value = Date: Cancel = True
    End With
End Sub

On Error Resume Next
Columns("H").SpecialCells(xlCellTypeFormulas).EntireRow.Delete

Option Explicit

Sub Supprimer()
Cells(6, "H").Resize(Cells(Rows.Count, "H").End(xlUp).Row, 1).SpecialCells(xlCellTypeConstants).EntireRow.Delete
End Sub

Sub Archiver()
Dim I As Worksheet 'déclare la variable I (onglet Interventions)
Dim H As Worksheet 'déclare la variable H (onglet Histo)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim NL As Long 'déclare la variable NL (Nombre de Lignes)
Dim NC As Byte 'déclare la variable NC (Nombre de Colonnes)
Dim J As Long 'déclare la variable J (incrément)
Dim K As Long 'déclare la variable K (incrément)
Dim L As Byte 'déclare la variable L (incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau des Lignes)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Dim PL As Range 'déclare la variable PL (PLage)

Set I = Worksheets("Interventions") 'définit l'onglet I
Set H = Worksheets("Histo") 'définit l'onglet H
Set PL = I.Range("A1") 'initialise la variable PL
TV = I.Range("A4").CurrentRegion 'définit le tableau des valeurs TV (il commence en A3 et la première valeur est à sa 4ème ligne)
NL = UBound(TV, 1) 'définit le nombre de lignes NL du tableau des valeurs TV
NC = UBound(TV, 2) 'définit le nombre de colonnes NC du tableau des valeurs TV
K = 1 'initialise la variable K
For J = 4 To NL 'boucle 1 : sur toutes les lignes J du tableau des valeurs TV (en partant de la 4ème)
  If TV(J, 8) <> "" Then 'condition : si la donnée ligne I colonne 8 (=> "Efectuer le") n'est pas vide
      Set PL = IIf(PL.Cells.Count = 1, I.Rows(J + 2), Application.Union(PL, I.Rows(J + 2))) 'définit la variable PL
      ReDim Preserve TL(1 To NC, 1 To K) 'redimensionne le tableau des lignes TL
      For L = 1 To NC 'boucle 2 :  sur toutes les colonnes du tableau des valeurs TV
          TL(L, K) = TV(J, L) 'récupère dans la ligne L de TL, la valeur de la donnée en colonne L de TV (=transposition)
      Next L 'prochaine colonne de la boucle 2
      K = K + 1 'incrémente K (ajoute une colonne au tableau des lignes TL)
  End If 'fin de la condition
Next J 'prochaine ligne de la boucle 1
If K > 1 Then 'condition : si K est égale à 1 (au moins une occurence "Effectué le" trouvée)
  Set DEST = IIf(H.Range("A4") = "", H.Range("A4"), H.Range("A3").End(xlDown).Offset(1, 0)) 'définit la cellule de destination DEST
  DEST.Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL) 'renvoie dans DEST redimensionnée le tableau TL transposé
End If 'fin de la condition
End Sub
 

If PL.Cells.Count > 1 Then PL.Delete 'efface la plage PL