Private Sub Valider_Click()
Dim L As Integer, C As Integer
' Capture des inputs
Equipement = Modification.Liste.Value
DateIn = Modification.TextBox1.Value
Compteur = Modification.TextBox2.Value
' Si une input est vide on sort
If Equipement = "" Or DateIn = "" Or Compteur = "" Then Exit Sub
' On suppose que equipement existe car choisi dans liste
L = Application.Match(Equipement, Sheets("feuil1").Range("A:A"), 0)
' On cherche la cellule où se trouve la date, si elle n'existe pas on sort
C = Application.Match(CDbl(CDate(DateIn)), Sheets("feuil1").Range(Cells(L, 1), Cells(L, 100)), 0)
If IsError(Application.Match(CDbl(CDate(DateIn)), Sheets("feuil1").Range(Cells(L, 1), Cells(L, 100)), 0)) Then
' Mettre ici message d'erreur éventuel car date non trouvée
Exit Sub
End If
' sinon on calcule la colonne
C = Application.Match(CDbl(CDate(DateIn)), Sheets("feuil1").Range(Cells(L, 1), Cells(L, 100)), 0)
' On range les valeurs
Cells(L, C + 1) = Compteur
' On décharge l'userform
Unload Modification
End Sub