Bonjour,
Comme je me suis lancé, une autre approche basée sur les références de votre table structurée (donc les lignes 16 a 21 n'étant pas dans votre table structurée, elles ne sont pas inclues, d'où l'absence de croix) :
Sub CROIX()
For Each CEL In ActiveSheet.ListObjects("Tableau1").ListRows(1).Range
Set LIG = ActiveSheet.ListObjects("Tableau1").ListColumns(1).Range.Find(CEL.Value)
If Not LIG Is Nothing Then Cells(LIG.Row, CEL.Column) = "X"
Next CEL
End Sub
Cdlt,