Macro copier si egal rien

Bonsoir,

Voici une macro récuperer sur internet!
J'essaye de l'adapter mais pas simple

Voici ce que je cherche à faire :

Si la cellule de la colonne "C" est vide alors copie la formule "DEBIT" dans la colonne "11" sinon rien
et si la ligne est vide alors rien

Merci

Cazinos



Option Explicit
-----------------------------------------------------------------------------------
Sub Copier()

'selection feuille "FEUILLE"
Sheets("FEUILLE").Select

On Error Resume Next
Dim Cellule As Range

For Each Cellule In Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row)

"si la cellule de la colonne "C" égal rien alors copier formule "DEBIT"
If Cellule.Offset(1, 0) = "" Then

Range("A2:A" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23).Offset(, 11).Formula = [DEBIT].Formula
End If
Next
End Sub