XL 2016 Macro qui ne fonctionne plus

Sub Eclater()
Dim i&, s, ub%, j%
Application.ScreenUpdating = False
With ActiveSheet
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    For i = .Range("F" & .Rows.Count).End(xlUp).Row To 2 Step -1
        s = Split(.Cells(i, 6), vbLf)
        ub = UBound(s)
        If ub > 0 Then
            .Rows(i + 1).Resize(ub).Insert 'insère les lignes
            For j = 0 To ub
                .Cells(i + j, 6) = s(j)
            Next j
            For j = 1 To 5
                .Cells(i, j).Resize(ub + 1).Merge 'fusionne les cellules
            Next j
        End If
    Next i
    .Rows.AutoFit 'ajustement hauteur
End With
End Sub

            For j = 1 To 5
                '.Cells(i, j).Resize(ub + 1).Merge 'fusionne les cellules
                .Cells(i, j).Resize(ub + 1) = .Cells(i, j) 'copie-colle la 1ère cellule
            Next j