Re : amelioration de code
quelque chose comme ca?
for x=2 to 300
If shtbase.CheckBox8.Value = True Then
shtbase.Range("C"&x+10,"D"&x+10,"E"&x+10,"F"&x+10,"G"&x+10,"H"&x+10,"I"&x+10,"J"&x+10").Copy
shtpda.Range("A"&x).PasteSpecial
End If
next
Pour le checkbox je vois pas comment tu...