Bonjour,

Je rencontre un problème avec une macro :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub WorkSheet_Change(ByVal Target As Range)
 
        bla...bla...bla...
 
        ElseIf Not Intersect(Target, Range("B195:B209")) Is Nothing Then
 
              Set ws = Application.ActiveSheet
 
              L = Target.Row
 
              If Target.Value <> "" Then
Mon problème est que ça plante sur cette dernière ligne si je sélection plusieurs cellules de la plage donnée :
Erreur d'exécution '13':
Incompatibilité de type

J'ai essayé plusieurs trucs mais je n'arrive à rien.

Merci de votre aide.