Sub export()
Dim Chemin As String, Fichier As String
Dim wk As Workbook
Dim feuil1 As Variant, shtpda As Variant
'*******Variable à définir**************
Chemin = "\\Angfs1\data\TKAF\R01\A427\_Commun-Agence\GENERAL\Dossier Camille\pda\"
Fichier = "pda.xls"
'***************************************
Application.ScreenUpdating = False
Set wk = Workbooks.Open(Chemin & Fichier)
Set shtbase = ThisWorkbook.Worksheets("base travaux")
Set shtpda = wk.Worksheets("pda")
shtbase.Range("C11,D11,E11,F11,G11,H11,N11,S11").Copy
shtpda.Range("A1").PasteSpecial
If shtbase.CheckBox8.Value = True Then
shtbase.Range("C12,D12,E12,F12,G12,H12,N12,S12").Copy
shtpda.Range("A2").PasteSpecial
End If
If shtbase.CheckBox9.Value = True Then
shtbase.Range("C13,D13,E13,F13,G13,H13,N13,S13").Copy
shtpda.Range("A3").PasteSpecial
End If
If shtbase.CheckBox10.Value = True Then
shtbase.Range("C14,D14,E14,F14,G14,H14,N14,S14").Copy
shtpda.Range("A4").PasteSpecial
End If
If shtbase.CheckBox11.Value = True Then
shtbase.Range("C15,D15,E15,F15,G15,H15,N15,S15").Copy
shtpda.Range("A5").PasteSpecial
End If
If shtbase.CheckBox12.Value = True Then
shtbase.Range("C16,D16,E16,F16,G16,H16,N16,S16").Copy
shtpda.Range("A6").PasteSpecial
End If
end sub