Sub Construit()
finLg = Range("Suivi!A65536").End(xlUp).Row
num = Val(Range("Suivi!A" & finLg)) + 1
Sheets("Modéle").Select
Sheets("Modéle").Copy Before:=Sheets("Modéle")
Sheets("Modéle (2)").Select
Sheets("Modéle (2)").Name = "Fac_N°" & num
Range("h3") = num
Range("Suivi!A" & finLg + 1) = num
Range("Suivi!B" & finLg + 1) = Date
Range("Suivi!C" & finLg + 1) = Time
Range("Suivi!D" & finLg + 1) = [J8]
Range("Suivi!E" & finLg + 1) = [H50]
End Sub