Excel vba copie formule -> derniere ligne

Bonjour,

j'ai le code suivant en vb activé par une macro


Private Sub CommandButton1_Click()
Call essaiKF
End Sub
Sub essaiKF()

Range([C2], [A65536].End(xlUp).Offset(0, 2)).Select
Selection.FillDown
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

ce code recopie la formule de C2 jusqu'a la dernière ligne pleine de la colonneA.

la première fois impeccable ça copie bien en plus m^me si il y a des ligne vide entre Temp ça continu quand même jusqu'à vraiment la dernière ligne pleine de la colonne A,

le problème est : la deuxième fois ça me recopie la valeur trouvée par la formule en C2 et donc ça m'a effacé ma formule.

Comment puis je faire?

Merci d'avance