Sub Copie_Launcher_vers_BDD()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim rg As Range
Set ws1 = ThisWorkbook.Sheets("Launcher")
Set ws2 = ThisWorkbook.Sheets("Attest_BDD")
Set rg = ws2.Range("A2:A60000")
If IsEmpty(rg2) Then
rg.Offset(0, 5) = ws1.Range("E3") 'Nom assuré
rg.Offset(0, 6) = ws1.Range("E4") 'Adresse assuré
rg.Offset(0, 7) = ws1.Range("E5") 'CP assuré
rg.Offset(0, 8) = ws1.Range("E6") 'Ville assuré
rg.Offset(0, 9) = ws1.Range("K3") 'Date d'effet
rg.Offset(0, 10) = ws1.Range("K8") 'Date d'expiration
rg.Offset(0, 11) = ws1.Range("") 'N° contrat
rg.Offset(0, 12) = ws1.Range("E8") 'CDC
rg.Offset(0, 13) = ws1.Range("E9") 'Tel
rg.Offset(0, 14) = ws1.Range("E10") 'Fax
rg.Offset(0, 15) = ws1.Range("E11") 'Email
rg.Offset(0, 16) = ws1.Range("E12") 'Case Courrier
rg.Offset(0, 17) = ws1.Range("E13") 'Branche
rg.Offset(0, 18) = ws1.Range("E14") 'Signature
rg.Offset(0, 19) = ws1.Range("E16") 'Couverture 1
rg.Offset(0, 20) = ws1.Range("E17") 'Couverture 2
rg.Offset(0, 21) = ws1.Range("E18") 'Couverture 3
rg.Offset(0, 22) = ws1.Range("E19") 'Couverture 4
rg.Offset(0, 23) = ws1.Range("E20") 'Couverture 5
rg.Offset(0, 24) = ws1.Range("E21") 'Couverture 6
rg.Offset(0, 25) = ws1.Range("E22") 'Couverture 7
rg.Offset(0, 26) = ws1.Range("E23") 'Couverture 8
rg.Offset(0, 27) = ws1.Range("E24") 'Couverture 9
rg.Offset(0, 28) = ws1.Range("E25") 'Couverture 10
rg.Offset(0, 29) = ws1.Range("E26") 'Couverture 11
rg.Offset(0, 30) = ws1.Range("E27") 'Couverture 12
rg.Offset(0, 31) = ws1.Range("E28") 'Couverture 13
rg.Offset(0, 32) = ws1.Range("E29") 'Couverture 14
rg.Offset(0, 33) = ws1.Range("E30") 'Couverture 15
rg.Offset(0, 34) = ws1.Range("E31") 'Couverture 16
rg.Offset(0, 35) = ws1.Range("E34") 'Zone commentaire
rg.Offset(0, 36) = ws1.Range("E39") 'RR
End If
End Sub