XL 2016 Mise en forme affichage

[BARNS]

Bonjour tout le monde, est-ce qu'il y a moyen d'écrire ceci de manière plus condensé?

Sub aff()
 derniereL = Sheets("User").Cells(Rows.Count, 4).End(xlUp).Row + 10
    Sheets("User").Cells(derniereL, 3) = "Matériel pour canne de dessente"
    With Sheets("User").Cells(derniereL, 3)
    .Font.Bold = True
    .Font.Size = 14
    End With
End sub

Merci

 

[M12]

Bonjour,
Pas vraiment plus condensé mais...

Sub aff()
    derniereL = Sheets("User").Cells(Rows.Count, 4).End(xlUp).Row + 10
    With Sheets("User").Cells(derniereL, 3)
      .Value = "Matériel pour canne de dessente"
      .Font.Bold = True
      .Font.Size = 14
    End With
End Sub

 

[BARNS]

Merveilleux! Merci