Userform, créé des fonctions selon les ComboBox complétés

Bonjour à vous, je viens vers vous car depuis quelque temps je n'arrive plus à progresser sur excel.

Voilà, je commence sur excel donc je suis loin d'avoir un niveau que je qualifiais de parfais.

Je vous explique la situation : Depuis de nombreuses années les chefs d'équipe de mon entreprise sont obligé de rentrer tous les soirs le nombre d'heures, les postes et les différentes données des opérateurs dans un simple tableau excel.

Il y a quelques semaines j'ai donc commencé la création d'un tableau excel. j'ai inclus dans ce tableau une interface d'enregistrement Userform pour faciliter l'enregistrement des données.

Et la vient le problème principal, j'espère pouvoir me faire comprendre et si cela n'est pas le cas je vous prie de m'excuser:

Je voudrais créer un nombre de lignes équivalant au nombre de ComboBox( 00h00 ) qui ont été compléter.

Pour info une ligne doit contenir : La date; Le numéro de l'opérateur; le code de zone; les heures...

Pour l'instant la seule solution que j'ai trouvée ces d'écrire ceci :

Dim a, b
Dim n As Long
    a = Split(ComboBox5.Value, "h")(0)
    b = Split(ComboBox5.Value, "h")(1)
    c = Split(ComboBox7.Value, "h")(0)
    d = Split(ComboBox7.Value, "h")(1)
    e = Split(ComboBox8.Value, "h")(0)
    f = Split(ComboBox8.Value, "h")(1)

If MsgBox("confirmez-vous l'ajout des donnée?", vbYesNo, "confirmation") = vbYes Then

   n = Sheets("Feuil1").Range("B200").End(xlUp).Row + 1

    If ComboBox5 <> "0h00" Then

           Cells(n, 11) = CLng(a)
           Cells(n, 12) = CLng(b)
           Cells(n, 2) = txtdate.Value
           Cells(n, 6) = "CD"
           Cells(n, 9) = zone1.Value
           Cells(n, 7) = "D03"

  If txt4900.Value = "4900" Then Cells(n, 3) = txt499.Value
  If txt499.Value = "499" Then Cells(n, 3) = txt4900.Value

    End If
          'Cells(n + 1, 3) = txt4900.Value

  If ComboBox7 <> "0h00" And ComboBox5 <> "0h00" Then

  Cells(n + 1, 2) = txtdate.Value
  Cells(n + 1, 6) = "CD"
  Cells(n + 1, 9) = zone2.Value
  Cells(n + 1, 11) = CLng(c)
  Cells(n + 1, 12) = CLng(d)
  Cells(n + 1, 7) = "D04"

  If txt4900.Value = "4900" Then Cells(n + 1, 3) = txt499.Value
  If txt499.Value = "499" Then Cells(n + 1, 3) = txt4900.Value

  End If

  If ComboBox7 <> "0h00" And ComboBox5 = "0h00" Then

  Cells(n, 2) = txtdate.Value
  Cells(n, 6) = "CD"
  Cells(n, 9) = zone2.Value
  Cells(n, 11) = CLng(c)
  Cells(n, 12) = CLng(d)
  Cells(n, 7) = "D04"

  If txt4900.Value = "4900" Then Cells(n, 3) = txt499.Value
  If txt499.Value = "499" Then Cells(n, 3) = txt4900.Value

  End If

Le problème c'est que j'ai 11 ComboBox différente qui doivent pouvoir travailler entre elles. Donc voilà si jamais pas hasard une âme charitable aurais 5-10 min à me consacrer ça serait super. De même mes lignes sont très loin d'être parfaites donc si vous avez des propositions ce serait super