Saisie personnalisee

Bonjour à tous,

mon problème a été résolu précédemment par Mr Eric jean je joint la macro mon seul souci maintenant je n'arrive plus à écrire sur les autres colonnes la macro m'affiche

'erreur d’exécution 1004'

erreur définie par l'application ou par l'objet

pourriez-vous me dire c'est dû à quoi merci je joint la macro j'avais appuyer sur le bouton résolu sans se rendre contre y'avais un beug

Ajoute :

    If Target.Row <> 1 Then Exit Sub

ou 4

avant

    If Target.Count > 1 Then Exit Sub