Macro excel effacer contenu d'une cellule

Bonjour,

J'ai fait une macro qui me permet d'archiver une ligne de ma feuille 1 sur une autre feuille (2). Mais je voudrais que le contenu de ma ligne en feuiile 1 s'efface une fois que j'ai cliquée sur le bouton "valider".
Voici la macro que j'ai actuellement :

Sub copier_feuil2()
Range("I20") = Range("I20") + 1
tablo = Range("C20:K20").Value
With Sheets(2)
ligvide = .Range("A65536").End(xlUp).Row + 1
.Range(.Cells(ligvide, 1), .Cells(ligvide, 9)) = tablo
tablo = Sheets(1).Range("C14").Value
.Range(.Cells(ligvide, 10), .Cells(ligvide, 10)) = tablo
tablo = Sheets(1).Range("F14").Value
.Range(.Cells(ligvide, 11), .Cells(ligvide, 11)) = tablo
tablo = Sheets(1).Range("I8").Value
.Range(.Cells(ligvide, 12), .Cells(ligvide, 12)) = tablo
tablo = Sheets(1).Range("I11").Value
.Range(.Cells(ligvide, 13), .Cells(ligvide, 13)) = tablo

End With

End Sub

Sub raz_i20()
Range("I20").ClearContents
End Sub

Merci d'avance