Microsoft 365 Copier cellule jusqu'à prochaine cellule non vide sur la plage sélectionnée

Sub RemplirBas2()
    Dim tbl As Variant
    Dim i As Integer
    tbl = Selection.Columns(1).Value ' Valeurs dans un tableau mémoire
    '
    ' Parcours de chaque valeur
    For i = 2 To UBound(tbl)
       '
       ' si la valeur est vide, prendre la précédente
        If IsEmpty(tbl(i, 1)) Then tbl(i, 1) = tbl(i - 1, 1)
    Next
    '
    'Recharger la sélection par les nouvelles valeurs
    Selection.Columns(1).Value = tbl
End Sub

Sub RemplirBas()
    Dim plg As Range, c1 As Range, c2 As Range
    '
    ' Récupérer les cellules avec constantes
    On Error Resume Next
    Set plg = Selection.SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    '
    ' si existent
    If Not plg Is Nothing Then
        '
        ' parcourir chacune d'entre elles
        For Each c1 In plg
            '
            ' récupérer la dernière cellule vide de la plage de c1
            Set c2 = c1.End(xlDown).Offset(-1)
            '
            ' Vérifiez qu'on a pas dépassé la sélection
            If c2.Row > Selection.Row + Selection.Rows.Count - 1 Then Set c2 = Selection.Cells(Selection.Cells.Count)
            '
            ' si la ligne de c2 est supérieure à la ligne de c1 alors on remplit
            If c2.Row > c1.Row Then Range(c1, c2).FillDown
        Next
    End If
End Sub

 If tbl(i, 1)="" Then tbl(i, 1) = tbl(i - 1, 1)