Planning dynamique

Bonsoir à tous, je cherche à créer un planning à partir d'un bouton lié à un userform : je rentre des noms de tâche, une date de début et de fin de la tâche, et le pôle responsable de la tâche, et en cliquant sur valider, une shape doit se créer et doit correspondre aux 2 dates entrées, seulement quand j'exécute, la shape ne se place pas où elle devrait, c'est-à-dire à une des cellules correspondant au mois de la date de début...

Je ne sais pas si je me suis bien exprimé, j'aurais aimé vous envoyer le fichier, voici le code, c'est surtout la partie soulignée qui doit poser problème selon moi.

En vous remerciant de vos réponses.

Private Sub Annuler_Click()
Unload NouveauProjet

End Sub
Private Sub UserForm_Initialize()
Inputs.Activate
    ListBox1.List = Range("Q2:Q5").Value
End Sub

Private Sub Valider_Click()
Dim i As Integer

Dim j As Integer

Dim l As Single, t As Single, h As Single, w As Single
nb_ligne = Inputs.Cells(Rows.Count, 1).End(xlUp).Row

If IsNumeric(Projet) = True Then
    MsgBox ("Entrez un nom de projet")

Else
    Inputs.Cells(nb_ligne + 1, 1).Value = Projet.Value

End If

Inputs.Cells(nb_ligne + 1, 2).Value = Début.Value
Inputs.Cells(nb_ligne + 1, 3).Value = Fin.Value
Inputs.Cells(nb_ligne + 1, 4).Value = ListBox1.Value


i = Fin.Value - Début.Value
j = Début.Value - DateSerial(Year(Date), 1, 1)
If ListBox1.Value = Range("Q2").Value Then
    h = Range("C4").Height * 3
    w = Range("C4").Width * i / 7
    l = Range("C4").Left * j / 7
    t = Range("C4").Top

Worksheets("Feuil1").Activate

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, l, t, w, h).Select

    With Selection
        .Characters.Text = Projet.Value
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With

End If

Unload NouveauProjet
Range("F10").Activate
End Sub