Arf,
Le problème de cette erreur, c'est quelle peut englober pas mal de chose.
Et vue que de mon côté sa fonctionne, j'ai pas vraiment de piste.
On va essayer de solutionner sa en regardant autant de chose que possible :
1 - Dans la Feuil TE 2018 en ligne masquée 1. Vérifie que les dates soient correctement indiquées
2 - Dans le code ci-dessous
If Target.Column >= 9 Then
Cell = Target.Value
affaire = Range("A" & Target.Row).Value
prenom = ActiveSheet.Name
mois = Cells(1, Target.Column).Value
Set trmois = Sheets(1).Cells.Find(what:=mois)
k = trmois.Column
While Sheets(1).Cells(3, k).Value <> prenom
k = k + 1
Wend
Set traffaire = Sheets(1).Cells.Find(what:=affaire)
x = traffaire.Row
Sheets(1).Cells(x, k) = Cell
End If
Remplace le :
prenom = ActiveSheet.Name
Par
prenom = "Poinsot"
Et test en Feuil Poinsot d'indiquer une heure
Essayons sa et nous verrons si sa solutionne le problème