Sub Transforme()
Application.ScreenUpdating = False
Dim Derlig&, DernCol%
DernCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Derlig = Range("A" & Rows.Count).End(xlUp).Row
For j = 2 To DernCol
For i = 2 To Derlig
If Cells(i, j) = 1 Then Cells(i, j) = Cells(1, j)
Next i
Next j
End Sub