Incompatibilité de type

Option Explicit

Call Créermenusjournaliers(cboDatedumenu.Value, cboCodeslégumes.Value, cboLégumes.Value, cboJourslégumes.Value, cboConditionnementlégumes.Value, _
cboDestinationlégumes.Value, txtQuantitélégumes.Value, cboCodelégumedeux.Value, cboLégumedeux.Value, cboJourlégumedeux.Value, cboConditionnementlégumedeux.Value, _
cboDestinationlégumedeux.Value, txtQuantitélégumedeux.Value, cboCodesviandes.Value, cboViandes.Value, cboJoursviandes.Value, cboConditionnementviandes.Value, _
cboDestinationviandes.Value, txtQuantitéviandes.Value, cboCodesdesserts.Value, cboDesserts.Value, cboJoursdesserts.Value, cboConditionnementdesserts.Value, _
cboDestinationdesserts.Value, txtQuantitédesserts.Value, cboCodesobservations.Value, cboObservations.Value, cboMoisconcernés.Value, cboNumérodumenu.Value)

Public Sub Créermenusjournaliers(Datedumenu As Date, Codeslégumes As String, Légumes As String, Jourslégumes As String, Conditionnementlégumes As String, _
Destinationlégumes As String, Quantitélégumes As Single, Codelégumedeux As String, Légumedeux As String, Jourlégumedeux As String, Conditionnementlégumedeux As _
String, Destinationlégumedeux As String, Quantitélégumedeux As Single, Codesviandes As String, Viandes As String, Joursviandes As String, _
Conditionnementviandes As String, Destinationviandes As String, Quantitéviandes As Single, Codesdesserts As String, Desserts As String, _
Joursdesserts As String, Conditionnementdesserts As String, Destinationdesserts As String, Quantitédesserts As Single, Codesobservations As String, _
Observations As String, Moisécoulés As String, Numérodumenu As Byte)

Call Créermenusjournaliers(Meslistesmenusjouranliers)

Public Sub Créermenusjournaliers(Meslistesmenusjouranliers)

'Code du module Listemenusjournaliers
Option Explicit
'Type de données personnalisées
Type Listemenusjournaliers
Datedumenu As Date
Codeslégumes As String
Légumes As String
Jourslégumes As String
Conditionnementlégumes As String
Destinationlégumes As String
Quantitélégume As Single
Codelégumedeux As String
Légumedeux As String
Jourlégume As String
Conditionnementlégume As String
Destinationlégumedeux As String
Quantitélégumedeux As Single
Codesviandes As String
Viandes As String
Joursviandes As String
Conditionnementviandes As String
Destinationviandes As String
Quantitéviandes As Single
Codesdesserts As String
Desserts As String
Joursdesserts As String
Conditionnementdesserts As String
Destinationdessserts As String
Quantitédesserts As Single
Codesobservations As String
Observations As String
Moisconcernés As String
Numérodumenu As Byte
End Type
Public Meslistesmenusjouranliers As Listemenusjournaliers
Public Classeurmenus As Workbook
Public Classeurlistedechoixlégumes
Public Classeurlistedechoixviandes
Public Classeurlistedechoixdesserts
Public Classeurlistedechoixobservations
Public Classeurmoisconcernés
Public Monchemin

With Meslistesmenusjouranliers
  .Datedumenu = CDate(cboDatedumenu.Value)
  .Codeslégumes = cboCodeslégumes.Value
  .Légumes = cboLégumes.Value
  .Jourslégumes = cboJourslégumes.Value
  .Conditionnementlégumes = cboConditionnementlégumes.Value
  .Destinationlégumes = cboDestinationlégumes.Value
  .Quantitélégume = CSng(txtQuantitélégumes.Value)
  ' Etc.
  ' Etc.
  ' Jusqu'à :
  .Numérodumenu = CByte(cboNumérodumenu.Value)
End With
Call Créermenusjournaliers(Meslistesmenusjouranliers)

'Procédure Créermenusjournaliers
Public Sub Créermenusjournaliers(UneListe As Listemenusjournaliers)
Dim Ligneajout As Integer
  With Classeurmenus.Sheets("Récapitulatif menus")
    Ligneajout = .Range("A1").End(xlDown).Row + 1
    .Range("A" & Ligneajout).Value = UneListe.Datedumenu
    .Range("B" & Ligneajout).Value = UneListe.Codeslégumes
    .Range("C" & Ligneajout).Value = UneListe.Légumes
    'Etc.
    'Jusqu'à :
    .Range("AC" & Ligneajout).Value = UneListe.Numérodumenu
  End With
  With Classeurmenus.Sheets("Menus")
    Ligneajout = .Range("A1").End(xlDown).Row + 1
    .Range("A" & Ligneajout).Value = UneListe.Datedumenu
    .Range("B" & Ligneajout).Value = UneListe.Légumes
    'Etc.
    'Jusqu'à :
    .Range("C" & Ligneajout).Value = UneListe.Numérodumenu
  End With
 End Sub