Sub effaceCOL()
Dim f,k as long
Dim v, c As Range
v = "x"
For Each f In Array("Result_Tric ", "Result_Finished", "Analyse dimensionnelle", "FT TRE1")
With Sheets(f)'le . indique le with
col=.cells(2,256).end(1).row
.range(.cells(2,1),.cells(2,col)).value=.range(.cells(2,1),.cells(2,col)).value
For k=1 to col
If .cells(2,k) = v Then .columns(k).delete : exit for
Next
End With
Next f
End Sub