Aide descendre d'une ligne en VBA

Bonjour,

Je tente de créer un fichier de temps avec inscription automatique en cliquant du des boutons. Par contre, l'info lorsque je l'inscrit elle ne ce met pas a la suite (une ligne en bas).

Voici ce que j'ai utiliser comme formule

'*************************************************************
'Procédure permettant le rajout d'une nouvelle ligne de temps
'a la fin de la base de données.
'Affichage du (ligne 1) plus vieux au plus récent (ligne 1000)
'*************************************************************

Private Sub CBSAUVEGARDE_Click()
Sheets("TEMPS").Activate
Range("A1").Select
Selection.End(xlDown).Select 'Position sur la dernière ligne non vide
Selection.Offset(1, 0).Select 'Décaler d'une ligne vers le bas
ActiveCell.Offset(0, 2).Value = TBDATE
ActiveCell.Offset(0, 3).Value = TBHRSDEBUT
ActiveCell.Offset(0, 4).Value = TBHRSFIN
ActiveCell.Offset(0, 5).Value = TBPAUSE
ActiveCell.Offset(0, 7).Value = CBAPPEL
ActiveCell.Offset(0, 8).Value = CBCODE
ActiveCell.Offset(0, 9).Value = CBEMPLOYE
ActiveCell.Offset(0, 10).Value = CBNOTES

MsgBox "Votre temps a bien été ajouter", vbOKOnly + vbInformation, "CONFIRMATION"
End Sub

Où est mon erreur et comment y remédier ?

Bonjour,
Question : dans quelle feuille se trouve le contrôle ActiveX ?
Cdlt.

Pas certaine de comprendre la question

Re,
Dans quelle feuille se situe CBSAUVEGARDE_Click ?
Cdlt.

Dans la feuille Dashboard

En faite CB sauvegarde est dans la feuille UFSAISIETEMPS