Sub test2()
Application.ScreenUpdating = False
Dim TabData() As Variant
Dim Fin As Long
Dim i, j As Long
With Sheets("DA")
Fin = .UsedRange.Rows.Count
TabData = .Range("A4:Q" & Fin).Value
End With
For i = LBound(TabData, 1) To UBound(TabData, 1)
If TabData(i, 8) = "" Then
For j = LBound(TabData, 2) To UBound(TabData, 2)
TabData(i, j) = ""
Next j
End If
Next i
With Sheets("Résultat")
.Range("A1").Resize(UBound(TabData, 1), UBound(TabData, 2)) = TabData
.Range("A1").Resize(UBound(TabData, 1), UBound(TabData, 2)).Columns(8).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Union(.Columns("A:D"), .Columns("I:Q")).Delete
End With
Application.ScreenUpdating = True
End Sub