'*< La fonction CREER UNE COPIE DU RAPPORT >*
Sub Construit()
Application.ScreenUpdating = False
finLg = Range("SOMAIRE!A65536").End(xlUp).Row
num = Val(Range("SOMAIRE!A" & finLg)) + 1
Sheets.Add Before:=Sheets("Rapport Activités")
Sheets("Rapport Activités").Cells.Copy
With ActiveSheet
.Paste
.Name = "Rapport_N° " & Range("k2") & "_" & Range("k3")
.Range("A3") = "Rapport d'Activités de la semaine N° " & Feuil1.Range("K2").Value & _
" de l'année " & Feuil1.Range("K3").Value
.Range("B4").Value = Sheets("Rapport Activités").ComboBox1.Value & " " & Sheets("Rapport Activités").Label1.Caption
.Range("I:AC").Delete
.Range("F1").Select
End With
Sheets("Rapport Activités").Select ' remise à zero le tableau
Dim cel As Range
For Each cel In Range("A7:A32")
cel.Value = ""
Next cel
For Each cel In Range("B7:B32")
cel.Value = ""
Next cel
For Each cel In Range("C7:C32")
cel.Value = ""
Next cel
For Each cel In Range("D7:D32")
cel.Value = ""
Next cel
Range("F1").Select
Application.ScreenUpdating = True
Range("SOMAIRE!A" & finLg + 1) = num 'remplissage du tableau de la feuil SOMMAIRE
Range("SOMAIRE!B" & finLg + 1) = Date
Range("SOMAIRE!C" & finLg + 1) = Time
End Sub