Bonjour
Par curiosité je viens de tester ton code
En cliquant sur une cellule entre F35 et U35, la date s'inscrit bien dans la cellule
Le code que je t'ai fourni fait exactement la même chose
Alors que veux tu exactement ?
Si tu veux qu'en cliquant sur une cellule de la plage F35:U35 cela te remplisse toute la plage avec la date
Modifies le code
'inscrit la date LIGNE 35
Set KeyCells = Range("F35:U35")
If Not Application.Intersect(KeyCells, Target) Is Nothing Then
If Target = "" Then
SheetUnprotect
' Target = Date
KeyCells.Value = Date
End If
sheetsprotect
End If