XL 2016 Fusion de cellules selon colonnes différente

Sub fusion()
    Dim datas, lig As Long, nblig As Long, col As Long
   With Sheets(1)
   datas = .[A2].Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 1).Value
    Application.DisplayAlerts = False
    For lig = 1 To UBound(datas)
        nblig = Application.CountIf(.Columns(1), datas(lig, 1))
        If nblig > 1 Then
            For col = 4 To 6
                .Cells(lig + 1, col).Resize(nblig).MergeCells = True
            Next col
        End If
        lig = lig + nblig - 1
    Next lig
End With
End Sub

Sub Fusion()
Dim deb&, i&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With [A1].CurrentRegion
    .UnMerge 'défusionne
    .Sort .Cells(1), xlAscending, Header:=xlYes 'tri sur colonne A
    deb = 2
    For i = 3 To .Rows.Count + 1
        If .Cells(i, 1) <> .Cells(i - 1, 1) Then
            With Range(.Cells(deb, 3), .Cells(i - 1, 3))
                .Offset(, 1).Merge
                .Offset(, 2).Merge
                .Offset(, 3).Merge
            End With
            deb = i
        End If
    Next
End With
End Sub