????les deux dernières cellules pleines de la colonne B
Sub Fusion()
Dim col%, c As Range, cc As Range
col = 2 'à adapter
With Feuil1 'CodeName à adapter
If Application.CountA(.Columns(col)) < 2 Then Exit Sub
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
Set c = .Cells(.Rows.Count, col).End(xlUp)
Set cc = IIf(IsEmpty(c(0)), .Cells(c.Row, col).End(xlUp), c(0))
Application.DisplayAlerts = False
.Range(c, cc).Merge
End With
End Sub