Aide pour problème macro

Bonjour le forum

Lorsque je fait une "manœuvre" quelconque sur feuille Excel (élargissement de colonne ou autre) j'ai un message sur la ligne ci-dessous

If Target <> Selection Then Exit Sub

Erreur d'éxecution '13':

Incompatibilité de type

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim LaDate As Date, J As Long
    If Target <> Selection Then Exit Sub
    If Target.Column = 2 Then
        Application.ScreenUpdating = False
        For J = 6 To 36
            If Cells(J, "B") = "" Then Cells(J, "A").ClearContents
        Next J
        ' Reconstruit la date de fonction du nom de la feuille et du numéro de ligne sélectionnée
        LaDate = DateSerial(Split(Sh.Name, " ")(1), Month(DateValue(Sh.Name)), Target.Row - 5)
        If UCase(MonthName(Month(LaDate))) = UCase(Split(Sh.Name, " ")(0)) Then
            ' Si la colonne B et la colonne C est vide on efface la date
            Range("A" & Target.Row) = Application.Proper(Format(LaDate, "dddd dd mmmm yyyy"))
        End If
    End If
End Sub

Quelqu'un du forum peut-il m'aider SVP

Merci d'avance

bonjour,

vous voulez comparaitre quoi ? le valeur, l'adresse, ..., donc il faut ajouter cela.

Mais dans cette macro Workbook_SheetSelectionChange la plage "target" et la plage "selection" sont les mêmes, donc ce règle sert à rien.

Il faut savoir que si la selection est plus qu'une cellule target.row ou target.column sera celle de la cellule à gauche en haut.

Ce que vous faitez avec le nom de la feuille pour créer des dates ???

Bonjour BsAlv

Effectivement j'ai modifié ma macro et pas vu que "selection" ne sert plus à rien

Là ça va nettement mieux

Merci à toi et bonne journée

Cordialement