Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:F10], Target) Is Nothing Then
Range("I2:K20").ClearContents
a = [B1].CurrentRegion
ligBD = 2
For ligne = 2 To UBound(a, 1)
For col = 3 To UBound(a, 2)
If UCase(a(ligne, col)) = "X" Then
Cells(ligBD, "i") = a(ligne, 1)
Cells(ligBD, "j") = a(ligne, 2)
Cells(ligBD, "k") = a(1, col)
ligBD = ligBD + 1
End If
Next col
Next ligne
End If
End Sub