Option Explicit
Sub Création()
Dim Num As Long, Ligne As Long
Dim Types As String, Intitule As String
Dim DateDem As String, DateDep As String, DateRet As String
Dim Nom As String, Disponibilite As String
Ligne = Sheets("DR").Range("A" & Rows.Count).End(xlUp).Row + 1
Types = InputBox("Veuillez saisir le type de réparation :(Mécanique, Carrosserie, Divers)", "Attente saisie utilisateur")
Intitule = InputBox("Intitulé de la réparation : ", "Attente saisie utilisateur")
DateDem = InputBox("Date de la demande : jj/mm/aaaa", "Attente saisie utilisateur")
DateDep = InputBox("Date du départ : jj/mm/aaaa", "Attente saisie utilisateur")
DateRet = InputBox("Date du retour : jj/mm/aaaa", "Attente saisie utilisateur")
Nom = InputBox("Nom : ", "Attente saisie utilisateur")
Disponibilite = InputBox("Disponibilité : ", "Attente saisie utilisateur")
With Sheets("DR")
.Range("A" & Ligne) = Ligne - 1
.Range("B" & Ligne) = Types
.Range("C" & Ligne) = Intitule
.Range("D" & Ligne) = DateDem
.Range("E" & Ligne) = DateDep
.Range("F" & Ligne) = DateRet
.Range("G" & Ligne) = Nom
.Range("H" & Ligne) = Disponibilite
End With
End Sub