Private Sub Worksheet_Change(ByVal Target As Range)
Dim LigneFin As Long, inter As String
If Not Intersect(Target, Range("B20:C150")) Is Nothing Then
Application.EnableEvents = False
Range("f3:ai16").ClearContents
LigneFin = Range("A" & Rows.Count).End(xlUp).Row
For Each cellule In Range("A20:A" & LigneFin)
If cellule.Offset(0, 1) <> "" Then
ligne = Range(cellule.Offset(0, 1)).Row
colonne = Range(cellule.Offset(0, 1)).Column
Cells(colonne, ligne).Offset(2, 5) = "X"
End If
If cellule.Offset(0, 2) <> "" Then
ligne = Range(cellule.Offset(0, 2)).Row
colonne = Range(cellule.Offset(0, 2)).Column
Cells(colonne, ligne).Offset(2, 5) = "X"
End If
Next cellule
Application.EnableEvents = True
End If
End Sub