Private Sub CommandButton2_Click() 'bouton ENREGISTRER LA SAISIE
Dim lig As Long
On Error Resume Next
With Sheets([D1].Text)
If Err Then MsgBox "Cet agent n'existe pas, Veuillez le créer !": Exit Sub
lig = Application.Match([B5], .[B:B], 0)
If Err Then MsgBox "La date n'existe pas dans la feuille de l'agent...": Exit Sub
.Cells(lig, 3).Resize(, 5) = [C5:G5].Value
End With
End Sub