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

--------------------------------------------------------------------------------------------
Attribute VB_Name = "Module1"
Option Explicit
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
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
-----------------------------------------------------------------------------------------------

Ici Compile error variable Non Définie Apparaît

Attribute VB_Name = "Module1"
Option Explicit
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
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