Private Sub CommandButton1_Click()
Dim ligne As Long
If MsgBox("Confirmez-vous l'ajout des données?", vbYesNo + vbQuestion, "Confirmation") = vbYes Then
ligne = Sheets("Resto").Cells(Rows.Count, 1).End(xlUp)(2).Row
With Sheets("Resto").Cells(ligne, 1).Resize(, 5)
.Value = Array(CombResto, TDate, Tville, TDept, TPrix)
With .Font
.Bold = True: .Color = -16776961
End With
End With
End If
End Sub