Macro mesure d'heure par jour par agents

Bonjour le forum,

j'ai un soucis quand à la génération d'un tableau étant censé affecter pour chaque agent un nombre d'heures par jour.

En effet je rencontre des difficultés au niveau des 2 boucles qui, je le pense me sont nécessaires d'utiliser : une pour demander le nombre d'heure travaillé, l'autre pour passer à l'employé suivant (changement de ligne).

J'espère avoir été assez clair et voici une esquisse de mon code :

Sub Planning()

Dim x As Long, y As Long
Dim ag As Integer
Dim jours As Integer
ag = InputBox("nbre types")
jours = InputBox("nbre jours ")

'ag *2 car je souhaiterai un saut de ligne entre chaque agent, afin de pouvoir insérer les heures travaillées de nuit plus tard.

For i = 1 To ag * 2 Step 2
Cells(1 + i, 1).Value = "agent"
Next i

For i = 1 To jours
Cells(1, 1 + i).Value = i
Next i

'demander le nombre d'heure de jour ET de nuit tout en sautant une ligne entre chaque agents

Dim h As Integer
Dim myRange As Range

h = 1

Do Until h = agents
Set myRange = Worksheets("Feuil2").Range(Cells(1 + h, 2), Cells(1 + h, jours + 1))
    For Each cell In myRange
    cell.Value = InputBox("chiffre")
    Next cell
    h = h + 1
Loop

End Sub

Merci d'avance !

Tony

Bonsoir

Sub Planning()
  Dim ag As Integer
  Dim jours As Integer, agents As Integer
  Dim i As Integer, j As Integer

  ag = InputBox("nbre types")
  jours = InputBox("nbre jours ")

  'ag *2 car je souhaiterai un saut de ligne entre chaque agent, afin de pouvoir insérer les heures travaillées de nuit plus tard.

  For i = 1 To ag * 2 Step 2
    Cells(1 + i, 1).Value = "agent"
  Next i

  For i = 1 To jours
    Cells(1, 1 + i).Value = i
  Next i

  'demander le nombre d'heure de jour ET de nuit tout en sautant une ligne entre chaque agents
  For i = 2 To ag * 2 Step 2
    For j = 2 To jours + 1
      Cells(i, j).Value = InputBox("chiffre")
      Next j
  Next i

End Sub