Sub Creation_Fiche_Affaire()
Dim WsName As String
Sheets("Extraction Affaires").Select
Nb_Row = Cells(Rows.Count, "a").End(xlUp).Row
For Nombre = 2 To Nb_Row
'Copie "Client"
Sheets("Fiche Affaire").Cells(2, 1) = Sheets("Extraction Affaires").Cells(Nombre, 2)
'Copie "N°Devis"
Sheets("Fiche Affaire").Cells(4, 2) = Sheets("Extraction Affaires").Cells(Nombre, 8)
'Copie "N°AR"
Sheets("Fiche Affaire").Cells(5, 2) = Sheets("Extraction Affaires").Cells(Nombre, 1)
'Copie "Ref Affaire"
Sheets("Fiche Affaire").Cells(8, 2) = Sheets("Extraction Affaires").Cells(Nombre, 6)
'Copie "Produits"
Sheets("Fiche Affaire").Cells(10, 2) = Sheets("Extraction Affaires").Cells(Nombre, 14)
'Copie "Finition"
Sheets("Fiche Affaire").Cells(11, 2) = Sheets("Extraction Affaires").Cells(Nombre, 11)
'Copie "Commande Client"
Sheets("Fiche Affaire").Cells(15, 2) = Sheets("Extraction Affaires").Cells(Nombre, 3)
'Copie "Descriptif de l'affaire"
Sheets("Fiche Affaire").Cells(14, 4) = Sheets("Extraction Affaires").Cells(Nombre, 12)
'Copie "N°Affaire"
With Sheets("Extraction Affaires").Select
Cells(Nombre, 7).Select
'xxxxxxxxxxxxxxxxxxxxxx
ActiveSheet.Hyperlinks.Add Anchor:=Cells(ActiveCell.Row, 7), Address:="", SubAddress:= _
"'" & CStr(Cells(ActiveCell.Row, 7)) & "'!L1C1"
'xxxxxxxxxxxxxxxxxxxxxx
Sheets("Fiche Affaire").Cells(7, 2) = Sheets("Extraction Affaires").Cells(Nombre, 7)
End With
'Affectation du Numéro d'Affaire au nom de la feuille
Sheets("Fiche Affaire").Select
Sheets("Fiche Affaire").Copy After:=Sheets("Fiche Affaire")
Sheets("Fiche Affaire (2)").Select
ActiveSheet.Name = Cells(7, 2)
Next Nombre
End Sub