Private Sub Ajouter_Click()
Dim source As Range, deb As Range
Set source = [B12:F12] 'plage à copier
Set deb = [C19] '1ère cellule de titres
If source(1) = "" Then
MsgBox "Entrez la mission !", 48
Else
With deb(deb.CurrentRegion.Rows.Count + 1)
.Resize(, source.Count).Value = source.Value
.Offset(, -1) = .Row - deb.Row 'numéro
.Offset(, -1).Resize(, 7).Borders.Weight = xlThin
.Offset(, 2).Borders(xlEdgeRight).LineStyle = xlNone
End With
End If
source.ClearContents
source(1).Select
ThisWorkbook.Save 'enregistrement
End Sub
Private Sub RAZ_Click()
Dim deb As Range
Set deb = [C19] '1ère cellule de titres
With deb(2, 0).Resize(Rows.Count - deb.Row, 7)
.ClearContents
.Borders.LineStyle = xlNone
End With
End Sub