Sub Création_fiche_client()
Dim DLig As Long, Lig As Long
Dim ShtInfo As Worksheet, ShtProjet As Worksheet, ShtListe As Worksheet
Dim CivClt As String, NomClt As String, PrenomClt As String, EmailClt As String, AdClt As String, AdCClt As String, VilClt As String, CPClt As String, PaysClt As String, TelClt As String, GSMClt As String, DispClt As String, HClt As String, ContAClt As String, IDSkClt As String, NProClt As String, SectClt As String, DProClt As String, ObjMeLClt As String, BudClt As String, StatClt As String, WebsClt As String, WebsTyClt As String, Origlt As String, OrigClt As String, PromoClt As String, VPath As String, VFic As String
Set ShtInfo = Sheets("Informations")
Set ShtProjet = Sheets("Projet")
Set ShtListe = Sheets("Liste")
DLig = ShtListe.Range("B" & Rows.Count).End(x1Up).Row
For Lig = 1 To DLig
CivClt = ShtListe.Range("D" & Lig).Value
NomClt = ShtListe.Range("B" & Lig).Value
PrenomClt = ShtListe.Range("C" & Lig).Value
EmailClt = ShtListe.Range("E" & Lig).Value
AdClt = ShtListe.Range("F" & Lig).Value
AdCClt = ShtListe.Range("G" & Lig).Value
VilClt = ShtListe.Range("H" & Lig).Value
CPClt = ShtListe.Range("J" & Lig).Value
PaysClt = ShtListe.Range("K" & Lig).Value
TelClt = ShtListe.Range("L" & Lig).Value
GSMClt = ShtListe.Range("M" & Lig).Value
DispClt = ShtListe.Range("N" & Lig).Value
HClt = ShtListe.Range("O" & Lig).Value
ContAClt = ShtListe.Range("P" & Lig).Value
IDSkClt = ShtListe.Range("Q" & Lig).Value
NProClt = ShtListe.Range("R" & Lig).Value
SectClt = ShtListe.Range("S" & Lig).Value
DProClt = ShtListe.Range("T" & Lig).Value
ObjMeLClt = ShtListe.Range("U" & Lig).Value
BudClt = ShtListe.Range("V" & Lig).Value
StatClt = ShtListe.Range("W" & Lig).Value
WebsClt = ShtListe.Range("Z" & Lig).Value
WebsTyClt = ShtListe.Range("Y" & Lig).Value
OrigClt = ShtListe.Range("AB" & Lig).Value
OrigCClt = ShtListe.Range("AC" & Lig).Value
PromoClt = ShtListe.Range("AE" & Lig).Value
ShtInfo.Range("C6").Value = CivClt
ShtInfo.Range("D6").Value = NomClt
ShtInfo.Range("E6").Value = PrenomClt
ShtInfo.Range("M10").Value = EmailClt
ShtInfo.Range("M21").Value = AdClt
ShtInfo.Range("M22").Value = AdCClt
ShtInfo.Range("N23").Value = VilClt
ShtInfo.Range("M23").Value = CPClt
ShtInfo.Range("M24").Value = PayslClt
ShtInfo.Range("M12").Value = TelClt
ShtInfo.Range("M13").Value = GSMClt
ShtInfo.Range("M15").Value = DispClt
ShtInfo.Range("Q15").Value = HClt
ShtInfo.Range("Q10").Value = ContAClt
ShtInfo.Range("Q11").Value = IDSkClt
ShtInfo.Range("D10").Value = StatClt
ShtInfo.Range("D12").Value = WebsClt
ShtInfo.Range("D13").Value = WebsTyClt
ShtInfo.Range("H10").Value = OrigClt
ShtInfo.Range("H11").Value = OrigCClt
ShtInfo.Range("H17").Value = PromoClt
ShtInfo.Copy
With ActiveSheet
.Range("C6").Copy
.Range("C6").PasteSpecial Paste:=xlpastevalue
.Range("D6").Copy
.Range("D6").PasteSpecial Paste:=xlpastevalue
.Range("E6").Copy
.Range("E6").PasteSpecial Paste:=xlpastevalue
.Range("M10").Copy
.Range("M10").PasteSpecial Paste:=xlpastevalue
.Range("M21").Copy
.Range("M21").PasteSpecial Paste:=xlpastevalue
.Range("M22").Copy
.Range("M22").PasteSpecial Paste:=xlpastevalue
.Range("N23").Copy
.Range("N23").PasteSpecial Paste:=xlpastevalue
.Range("M23").Copy
.Range("M23").PasteSpecial Paste:=xlpastevalue
.Range("M24").Copy
.Range("M24").PasteSpecial Paste:=xlpastevalue
.Range("M12").Copy
.Range("M12").PasteSpecial Paste:=xlpastevalue
.Range("M13").Copy
.Range("M13").PasteSpecial Paste:=xlpastevalue
.Range("M15").Copy
.Range("M15").PasteSpecial Paste:=xlpastevalue
.Range("Q15").Copy
.Range("Q15").PasteSpecial Paste:=xlpastevalue
.Range("Q10").Copy
.Range("Q10").PasteSpecial Paste:=xlpastevalue
.Range("Q11").Copy
.Range("Q11").PasteSpecial Paste:=xlpastevalue
.Range("D10").Copy
.Range("D10").PasteSpecial Paste:=xlpastevalue
.Range("D12").Copy
.Range("D12").PasteSpecial Paste:=xlpastevalue
.Range("D13").Copy
.Range("D13").PasteSpecial Paste:=xlpastevalue
.Range("H10").Copy
.Range("H10").PasteSpecial Paste:=xlpastevalue
.Range("H11").Copy
.Range("H11").PasteSpecial Paste:=xlpastevalue
.Range("H17").Copy
.Range("H17").PasteSpecial Paste:=xlpastevalue
End With
ShtProjet.Range("C6").Value = CivClt
ShtProjet.Range("D6").Value = NomClt
ShtProjet.Range("E6").Value = PrenomClt
ShtProjet.Range("D10").Value = NProClt
ShtProjet.Range("H10").Value = SectClt
ShtProjet.Range("D12").Value = DProClt
ShtProjet.Range("H19").Value = ObjMeLClt
ShtProjet.Range("D19").Value = BudClt
ShtProjet.Copy
With ActiveSheet
.Range("C6").Copy
.Range("C6").PasteSpecial Paste:=xlPasteValues
.Range("D6").Copy
.Range("D6").PasteSpecial Paste:=xlPasteValues
.Range("E6").Copy
.Range("E6").PasteSpecial Paste:=xlPasteValues
.Range("D10").Copy
.Range("D10").PasteSpecial Paste:=xlPasteValues
.Range("H10").Copy
.Range("H10").PasteSpecial Paste:=xlPasteValues
.Range("D12").Copy
.Range("D12").PasteSpecial Paste:=xlPasteValues
.Range("H19").Copy
.Range("H19").PasteSpecial Paste:=xlPasteValues
.Range("D19").Copy
.Range("D19").PasteSpecial Paste:=xlPasteValues
End With
ShtListe.delete
VFic = "Fiche_" & ShtInfo.Range("D6").Value & " " & ShtInfo.Range("E6").Value
ActiveWorkbook.SaveAs VPath & VFic
ActiveWorkbook.Close
Next Lig
End Sub