Attribute VB_Name = "Module1"
Option Explicit

Sub Fusion()
Attribute Fusion.VB_ProcData.VB_Invoke_Func = " \n14"
    Dim Ligne As Long
    
    Ligne = Range("K65536").End(xlUp).Row
    For i = 1 To Ligne
        If Range("I" & i).Value = "" Then Range("I" & i).Value = Range("K" & i).Value
    Next i
End Sub

Sub Compléter_Cellules_vides()

    Dim c As Range

    Application.ScreenUpdating = False

    For Each c In Range("C:C").SpecialCells(xlCellTypeConstants)
        If c.Offset(, 0) = "" Then c.Offset(, 0) = c.Offset(-1, 0)
        If c.Offset(, 2) = "" Then c.Offset(, 2) = c.Offset(-1, 2)
        If c.Offset(, 1) = "" Then c.Offset(, 1) = c.Offset(-1, 1)
        If c.Offset(, -1) = "" Then c.Offset(, -1) = c.Offset(-1, -1)
        If c.Offset(, -2) = "" Then c.Offset(, -2) = c.Offset(-1, -2)
    Next
     
End Sub