Encadré les celulles enregistrée

Bonjour à tout le monde,

J'utilise ce code pour enregistré dans ma base :

Sub validation_Click()
Dim L As Integer


Sheets("étude faisabilité").Select
L = Range("A65536").End(xlUp).Row + 1
Range("A" & L) = Sheets("Diffusion").Range("data1")
Range("B" & L) = Sheets("Diffusion").Range("data2")
Range("C" & L) = Sheets("Diffusion").Range("data3")
Range("D" & L) = Sheets("Diffusion").Range("data4")
Range("E" & L) = Sheets("Diffusion").Range("data5")
Range("F" & L) = Sheets("Diffusion").Range("data6")
Range("G" & L) = Sheets("Diffusion").Range("data7")
Range("H" & L) = Sheets("Diffusion").Range("data8")
Range("I" & L) = Sheets("Diffusion").Range("data9")


Sheets("Diffusion").Select

End Sub

Comment faire pour que chaque celulles de A à I soit encadrée

D'avance je vous remercie
@ plus
Michel