Private Sub ComboBox3_Change()
If ComboBox3.Value = "Congé 2" Then Call Completer(ComboBox3.Value)
End Sub
Sub Completer(Type_Even2 As String)
Dim resultat As String
Dim Trouve2 As Range
Dim Colonne As Integer
resultat = InputBox("Merci d'entrer le montant ci-dessous.", "Indiquez le montant ici")
Set Trouve2 = Sheets("Accueil").Range("M:M").Find(Type_Even2, lookat:=xlWhole)
'If Trouve2 Is Nothing Then MsgBox "L'évenement : " & Type_Even2 & " n 'est pas prévu dans la feuille accueil", vbyesonly, "Alerte utilisateur": Exit Sub
For Colonne = 0 To 5
If Sheets("Accueil").Range("AT1").Offset(Trouve2.Row - 1, Colonne) = "" Then
Sheets("Accueil").Range("AT1:AX1").Offset(Trouve2.Row - 1, Colonne) = Infos: Exit For
End If
Next Colonne
End Sub