bjr à tous
j'ai developpé une macro et j'ai rencontré un problème lors de l'executuion.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If Target.Column = 2 And Target.Row >= 17 And Target.Row <= 36 Then
    If Target.Value <> "" Then
            Set model = Target
            With Sheets("feuil1")
            For Each cell In .Range("e48:e52")
                If cell.Value = Target.Value Then
                Range("g" & Target.Row).Value = cell.Offset(0, 3).Value
                Exit For
                End If
            Next
            End With
    Else
    Target.Offset(0, -1) = ""
    Target.Offset(0, 5) = ""
    End If
End If
le problème se pose quand je supprime le contenu de la cellule TARGET, et je reçoi la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Target.Value <> "" Then
en jaune
merci à vous.