Erreur 13 lorsque je supprime le texte dans plusieurs cellules

Bonjour à la communauté Excel-Pratique,

J'aurai besoin de votre aide pour une erreur 13 qui apparait dans mon fichier Excel dès lors que je souhaite supprimer le texte dans plusieurs cellule à la fois.

Le code VBA que j'utilise à pour but de me permettre d'avoir une cellule qui me renvoie l'information Date/Heure de la dernière modification des cellules que j'ai sélectionné.

Voici l'erreur d'exécution que cela m'affiche :

Voici le code utilisé : <br>

Option Explicit

Const celv = "A5:K15" 'à modifier suivant cas
Const celd = "H2" 'à modifier suivant cas

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(celv)) Is Nothing Then
  If Target.Value <> "" Then Range(celd).Value = Now
End If
End Sub

L'erreur renvoyée se situerait ici : 

Je vous ai joint mon fichier .xlsm en fin de post.

Merci d'avance pour votre aide précieuse

Bonne journée à tous !

Bonjour,

Lorsque plusieurs cellules sont sélectionnées, target devient une plage de cellules,et target.value un tableau de valeurs qui ne peut plus être comparé à un string (ici "") d'où l'incompatibilité de type.

Une solution consiste à boucler dans chaque cellule de la plage target :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    If Not Intersect(Target, Range(celv)) Is Nothing Then
        For Each cell In Target
            If cell.Value <> "" Then Range(celd).Value = Now()
        Next cell
    End If
End Sub

Est-ce que cela répond à la demande ?

Merci beaucoup Fatos pour ta réponse

Ca fonctionne parfaitement.

Bonne journée à toi !