Private Sub CommandButton2_Click()
With Sheets("journal")
dl = .Range("A65000").End(xlUp).Row + 1
.Cells(dl, 1) = nom
.Cells(dl, 2) = prenom
.Cells(dl, 3) = fonction
.Cells(dl, 4) = debut1
.Cells(dl, 5) = fin1
.Cells(dl, 6) = motifs1
.Cells(dl, 7) = services1
.Cells(dl, 8) = salarié1
End With
End Sub