resolu par JM 27 saisie des absences via userform

Private Sub CmbValider_Click()
    Dim FeuilleDeTransfert As String
    Dim LigneDeTransfert As Byte
    Dim DebutColonneDeTransfert As Byte
    Dim FinColonneDeTransfert As Byte
    Dim cell As Range
    
    If Month(Datedeb) <> Month(Datefin) Then
        MsgBox "Le mois de la date de début doit ètre la même que celle de fin"
        Exit Sub
    End If
    If Me.ComboNom.ListIndex = -1 Then
        MsgBox " Le Nom doit ètre documenté"
        Exit Sub
    End If
   FeuilleDeTransfert = StrConv(Format(Datefin, "mmmm"), vbProperCase)
   Err = 0
  On Error Resume Next
  LigneDeTransfert = Application.WorksheetFunction.Match(Me.ComboNom, Worksheets(FeuilleDeTransfert).Range("C1:C100"), 0)
   If Err <> 0 Then
        Err = 0
        MsgBox "La feuille de mois ou le nom de la personne n'existe pas dans cette feuille"
        Exit Sub
   End If
   DebutColonneDeTransfert = Application.WorksheetFunction.Match(CLng(Datedeb), Worksheets(FeuilleDeTransfert).Range("D11:AI11"), 0) + 3
   If Err <> 0 Then
        Err = 0
        MsgBox "La date de début n'existe pas dans cette feuille"
        Exit Sub
   End If
   FinColonneDeTransfert = Application.WorksheetFunction.Match(CLng(Datefin), Worksheets(FeuilleDeTransfert).Range("D11:AI11"), 0) + 3
    If Err <> 0 Then
        Err = 0
        MsgBox "La date de fin n'existe pas dans cette feuille"
        Exit Sub
   End If
    
    With Sheets(FeuilleDeTransfert)
        For Each cell In Range(.Cells(LigneDeTransfert, DebutColonneDeTransfert), .Cells(LigneDeTransfert + 1, FinColonneDeTransfert))
            cell = "1dispo"
        Next
    End With
    
    
End Sub