Sub Complete2()
Dim xcell, xrg As Range
Application.ScreenUpdating = False
With Sheets("Data")
If .FilterMode Then .ShowAllData
For Each xcell In .Range("a2:a130")
If xcell = "" Then
If xrg Is Nothing Then Set xrg = xcell.Resize(, 2) Else Set xrg = Union(xrg, xcell.Resize(, 2))
End If
Next xcell
If Not xrg Is Nothing Then xrg.Delete xlShiftUp
End With
With Sheets("Mois")
Set xrg = Nothing
If .FilterMode Then .ShowAllData
On Error Resume Next
Set xrg = .Columns("b").SpecialCells(xlCellTypeFormulas, xlErrors)
On Error GoTo 0
If Not xrg Is Nothing Then xrg.EntireRow.Resize(, 30).Offset(, 8).Delete xlShiftUp
End With
End Sub