Sub Transfert()
Application.ScreenUpdating = False
With Sheets("1")
If .Range("C8") <> "" Then Stocke .Range("C8")
If .Range("C9") <> "" Then Stocke .Range("C9")
If .Range("D8") <> "" Then Stocke .Range("D8")
If .Range("D9") <> "" Then Stocke .Range("D9")
End With
End Sub
Sub Stocke(Valeur)
DL = 1 + Sheets("Feuil2").Range("A65500").End(xlUp).Row
With Sheets("Feuil2")
.Cells(DL, "A") = Sheets("1").[B3]
.Cells(DL, "B") = Sheets("1").[D3]
.Cells(DL, "C") = Sheets("1").[C7]
.Cells(DL, "D") = Valeur
End With
End Sub