Sub Enregistrer()
Dim r As Range
With Sheets("REGISTRE D'ACTIVITÉ")
Set r = .Rows(3)
If r.Cells(1) = 0 Or Not IsDate(r.Cells(1)) Then MsgBox "Vous devez entrer au moins la date !", 48: Exit Sub
With .Columns(1).Find("", , xlValues).Resize(, 31) '1ère ligne sans date
.Value = r.Value 'copie les valeurs
.Replace 0, "", xlWhole 'supprime les zéros
'---couleurs et bordures---
.Interior.Color = 14277081 'gris
.Cells(1).Interior.Color = 14083324 'brun clair
.Borders.Weight = xlThin
'---feuille STAT---
Set r = Sheets("STAT").Columns(1).Find("S/TOTAL")
r.EntireRow.Insert 'insère une ligne
r(0) = .Cells(1) 'date
r(0, 2).Resize(, 5) = .Cells(7).Resize(, 5).Value
r(0, 7).Resize(, 15) = .Cells(13).Resize(, 15).Value
r(0).Resize(, 21).Borders.Weight = xlThin 'bordures
End With
.Activate 'facultatif
End With
End Sub
Sub Nouveau()
Sheets("INTER").[B22:C38,D9,F9,F20,F23,F26,D28,F28].ClearContents 'RAZ
End Sub