Sub CopierColler1()
ActiveSheet.Unprotect
If Not [Tableau_de_bord].ListObject.DataBodyRange Is Nothing _
Then [Tableau_de_bord].ListObject.DataBodyRange.Delete
For Each Col In Array("Code", "Fruit", "Arbre", "Modele", "Legumes")
Range("Tableau_base_de_données[" & Col & "]").Copy _
Range("Tableau_de_bord[" & Col & "]")
Next
ActiveSheet.Protect
End Sub