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
Sub G_et_P_en_onglet()
On Error Resume Next
onglet = InputBox("Indiquer le nom de l'onglet", "NOM ONGLET")
If onglet = "" Then Exit Sub
Sheets(onglet).Activate
If Err <> 0 Then MsgBox "Nom d'onglet Inconnu !": Exit Sub
lig = Application.CountIf(Sheets("G").[H4:H34], ">-1") + 3
Sheets(onglet).[H3:AA3].Value = Sheets("G").Range("H" & lig & ":AA" & lig).Value
lig = Application.CountIf(Sheets("P").[H4:H34], ">-1") + 3
Sheets(onglet).[H4:AA4].Value = Sheets("P").Range("H" & lig & ":AA" & lig).Value
End Sub