Fichier Excel pour une gestion de badge

Bonjour,

alors j'ai un autre topic sur une autre feuille excel, je suis en train de voir pour ce fichier excel pour une gestion de badge mais assez minime. J'ai pu changer deux trois trucs, mais je suis bloqué en lisant le code... une fois que je clique sur la zone 5 quand la 4 est remplit, ça me décale le tout. Et de 5 à 24 pareille. En fait, quand je remplis la 5, ça me remplit la 4, et ainsi de suite, je pense qu'il y a

une ligne qui n'est pas bonne dans mon usf. Pourriez vous m'aider svp ? je mets le fichier en pj.

???

Bonjour,

Un essai pour les 24 saisis d'info ...

Option Explicit

Dim K As Byte, Kr As Byte, J As Byte, N As Byte

Private Sub UserForm_Initialize()
    K = ActiveCell.Column
    Kr = ActiveCell.Row
    J = ActiveCell.Value
End Sub

Private Sub T1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = T1 = ""
End Sub

Private Sub T2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = T2 = ""
End Sub

Private Sub T3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = T3 = "": Cv.Visible = T3 <> ""
End Sub

Private Sub T4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = T4 = ""
End Sub

Private Sub Cv_Click()    'Enregistrer

    Cells(Kr, K).Interior.ColorIndex = 3
    Cells(Kr + 2, K) = Now

    For N = 1 To 4: Cells(Kr + N + 2, K) = Me("T" & N): Next

    [th].Item(J, 2) = Now
    For N = 1 To 4: [th].Item(J, N + 2) = Me("T" & N): Next
    Unload Me
End Sub

ric