Remplissage automatique de la Date

Bonjour,

Je suis un grand débutant, et je cherche à faire en sorte que pour chaque ligne, lorsque j'écris dans la colonne C (type), les colonnes A et B se remplissent automatiquement avec la date et l'heure de saisie (cf image).

Après beaucoup de tripatouillage, je suis arrivé à ça mais sans grande surprise, ça ne fonctionne toujours pas et fait même planter mon Excel. Qu'est ce qui bloque ?Merci beaucoup de votre aide !

Private Sub Worksheet_Change(ByVal Target As Range)

Dim d As Integer

For d = 6 To 5000

If Cells(d, "C").Value <> "" Then
Cells(d, "A") = Date
Cells(d, "A").NumberFormat = "dd/mm/yyyy"
End If

If Cells(d, "C").Value <> "" Then
Cells(d, "B") = Time
Cells(d, "B").NumberFormat = "HH:MM"
End If

Next

End Sub

Essaye de réduire le nombre max de ta variable dans le For

Sinon essaye avec la formule en dessous

Tu peux obtenir la dernière ligne compléter grâce à ca.

Cells(Rows.Count, colonne).End(xlUp).Row