Sub Copie_Launcher_vers_BDD()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim rg As Range
Application.ScreenUpdating = False
Set ws1 = ThisWorkbook.Sheets("Launcher")
Set ws2 = ThisWorkbook.Sheets("Attest_BDD")
If ws1.Range("E3") <> "" Then 'si la case E3 n'est pas vide alors
Set rg = ws2.Range("A2")
Do Until IsEmpty(rg) 'copie les données de Launcher sur toutes les lignes non vides de Attest_BDD
rg.Offset(0, 4) = ws1.Range("E3") 'Nom assuré
rg.Offset(0, 5) = ws1.Range("E4") 'Adresse assuré
rg.Offset(0, 6) = ws1.Range("E5") 'CP assuré
rg.Offset(0, 7) = ws1.Range("E6") 'Ville assuré
rg.Offset(0, 8) = ws1.Range("K3") 'Date d'effet
rg.Offset(0, 9) = ws1.Range("K8") 'Date d'expiration
rg.Offset(0, 10) = ws1.Range("A1") 'N° contrat
rg.Offset(0, 11) = ws1.Range("E8") 'CDC
rg.Offset(0, 12) = ws1.Range("E9") 'Tel
rg.Offset(0, 13) = ws1.Range("E14") 'Signature
rg.Offset(0, 18).Resize(1, 16) = Application.Transpose(ws1.Range("E16:E31")) 'Couvertures
rg.Offset(0, 33) = ws1.Range("E34") 'Zone commentaire
rg.Offset(0, 34) = ws1.Range("E39") 'RR
Set rg = rg.Offset(1, 0) 'prochaine ligne
Loop
Else
MsgBox "Valeur requise dans E3."
End If
Application.ScreenUpdating = True
End Sub