Sub aa()
Dim dl&, i&, fs As Worksheet
Set fs = Sheets("DETAIL")
dl = fs.Cells(Rows.Count, 1).End(xlUp).Row
j = 2
For i = 6 To dl
If Application.CountA(fs.Range(fs.Cells(i, 18), fs.Cells(i, 89))) > 0 Then
With Sheets("Feuil1")
.Range(.Cells(j, 1), .Cells(j, 89)).Value = fs.Range(fs.Cells(i, 1), fs.Cells(i, 89)).Value
End With
j = j + 1
End If
Next i
With Sheets("Feuil1")
.Columns("B:Q").Delete Shift:=xlToLeft
.Range("B1") = "1/1/2015"
.Range("B1").AutoFill Destination:=.Range("B1:R1"), Type:=xlFillMonths
.Range("B1:R1").NumberFormat = "mmmm yyyy"
End With
End Sub