Microsoft 365 Obtenir le numéro de ligne de la prochaine cellule non vide dans une colonne

Option Explicit

Sub Essai()
  If ActiveSheet.Name <> "TEST" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 2).End(3).Row: If n = 2 Then Exit Sub
  'MISE EN FORME DU TABLEAU : BORDURE ET CENTRAGE
  Dim i As Byte: Application.ScreenUpdating = 0
  With Range("B3:B" & n)
    For i = 7 To 10
      If i <> 8 Then .Borders(i).LineStyle = 1
    Next i
    .HorizontalAlignment = 3
  End With
End Sub

Sub Fusionner()
Dim a As Range, i&
With [B2].CurrentRegion
    .UnMerge 'défusionne
    If Application.CountBlank(.Columns(1)) Then
        For Each a In .Columns(1).SpecialCells(xlCellTypeBlanks).Areas
            Union(a.Cells(0, 1), a).Merge 'fusionne
        Next
    End If
    '---bordures---
    .Borders.LineStyle = xlNone 'RAZ
    For i = 1 To .Rows.Count
        If .Cells(i, 1) <> "" Then
            With Intersect(.Cells(i, 1).MergeArea.EntireRow, .Cells)
                .BorderAround Weight:=xlThin  'pourtour
                .Borders(xlInsideVertical).Weight = xlThin
            End With
        End If
    Next
End With
End Sub

Option Explicit

Sub TEST()
  If ActiveSheet.Name <> "TEST" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 3).End(3).Row: If n = 2 Then Exit Sub
  Dim a&, b&, i As Byte: a = n + 1: Application.ScreenUpdating = 0
  With Range("B3:D" & n)
    For i = 7 To 11
      If i <> 8 Then .Borders(i).LineStyle = 1
    Next i
  End With
  Do
    a = a - 1: b = a
    Do While IsEmpty(Cells(a, 2)): a = a - 1: Loop
    If a > 3 Then Cells(a, 2).Resize(, 3).Borders(8).LineStyle = 1
    If a < b Then
      With Range(Cells(a, 2), Cells(b, 2))
        .VerticalAlignment = 2: .Merge
      End With
    End If
  Loop Until a = 3
End Sub