Sub G_et_P_en_01()
lig = Application.CountIf(Sheets("G").[H4:H34], ">-1") + 3
Sheets("01").[H3:AA3].Value = Sheets("G").Range("H" & lig & ":AA" & lig).Value
For k = 29 To 48
If Sheets("G").Cells(lig, k) = 1 Then Sheets("01").Cells(3, k - 21) = 0
Next
lig = Application.CountIf(Sheets("P").[H4:H34], ">-1") + 3
Sheets("01").[H4:AA4].Value = Sheets("P").Range("H" & lig & ":AA" & lig).Value
For k = 29 To 48
If Sheets("P").Cells(lig, k) = 1 Then Sheets("01").Cells(4, k - 21) = 0
Next
End Sub