Macro pour insertion lignes

Bonjour,
J'ai un tableau excel dans lequel il ya un menu deroulant sur la colonne C. j'aimerai que quand un item du menu est selectionné (donc cellule non vide), une autre ligne s'insère automatiquement et que les formules des autres cellules se duplique. je ne suis pas une pro des macros, j'ai essayé ça mais elle ne s'execute pas automatiquement et elle ne duplique pas les formules des autres cellules. merci pour votre aide.

Sub InsertRows()

Dim Ligne As Long

' derniere ligne remplie de la colonne C

Ligne = ActiveSheet.Columns(5).Find("*", , , , xlByColumns, xlPrevious).Row

' boucle depuis la dernière ligne remplie jusqu'à la 1

For n = Ligne To 1 Step -1 ' si necessaire de s'arrêter avant la ligne 1 changer To 1

' si cellule en C vide

If Range("C" & n).Value <> "" Then

' alors insertion à la ligne suivante

Rows(n + 1 & ":" & n + 1).Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End If

Next

End Sub