Macro pour ajouter un ligne à la fin

Bonjour à tous,

comment automatiser l'ajout d'une ligne qui contiendrait en Ax "Désignation", en Bx "Nombre", en Cx"Total" après la dernière ligne remplie d'une feuille de calcul ? (x étant la première ligne vide à la fin de feuille)

Merci encore

Bonjour faudouy,

Essaie avec ça :

Sub ajoutLign()
Dim derlign As Long
    derlign = IIf([A1] = "", 1, [A65536].End(xlUp).Row + 1)
    Range("A" & derlign) = "Désignation"
    Range("B" & derlign) = "Nombre"
    Range("C" & derlign) = "Total"
End Sub