FORMULE SI jusqu'à la dernière cellule non vide

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)

Set O = Worksheets("Feuil1") 'définit l'onglet O
DL = O.Range("C" & Application.Rows.Count).End(xlUp).Row 'définit la derniere ligne éditée Dl de la colonne C de l'onglet O
O.Range("D3").FormulaR1C1 = _
        "=IF(RC[-1]=""MAURICE"",""MRU"",IF(LEFT(RC[-2],3)=""976"",""Mayotte"",""RUN""))" 'envoie la formule en D3
Range("D3").AutoFill Destination:=Range("D3:D" & DL), Type:=xlFillDefault 'recopie la formule jusqu'à DL
End Sub