Erreur d'exécution '13'- Incompatibilité de type

Bonjour à tous, j'ai fait tout mon possible pour ne pas avoir besoin de poser de questions mais je bug sur l'erreur de mon code

Celui-ci permet d'écrire de C2:C10 l'heure de la prise de note de B2:B10.

Il permet également d’effacer C2:C10 si B2:B10 =""

Cependant que ce soit au clavier ou à l'aide d'une commande, si j'opère un effacement par groupe : Sélection de 2 lignes ou bouton qui efface tout d'un coup, ça fonctionne mais le script stop.

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B2:B10")) Is Nothing Then

        If Target <> "" Then

            Target.Offset(0, 1).Value = Time

        End If

        If Target = "" Then
            Target.Offset(0, 1).Value = ""

        End If

    End If

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Address = "$B$11" Then

        Range("B2:B10, C2:C10").ClearContents

    End If

End Sub

Le DEBUG me dit que le problème est : If Target <> "" Then

J'ai l'impression que il ne peut opérer qu'une seule ligne à la fois.

Je joins le source XLSM EXCEL2010 en vous remerciant d'avance pour le temps consacré.

Cordialement

Variable

Bonjour

rajoute après la ligne1 de ton code une nouvelle ligne

On Error resume Next

cordialement

Bonjour Amadéus

Un grand merci, c'est nickel

Cordialement

Variable