Sub Ajoutcharges()
'
' Ajoutcharges Macro
' Macro
'
Worksheets("paramètre").Range("paramchg").Offset(1, 0).EntireRow.Insert
Worksheets("flash").Range("flashchg").Offset(1, 0).EntireRow.Insert
Sheets("paramètre").Range("B" & Range("paramchg").Row).Offset(1, 0) = InputBox("Veuillez saisir l'intitulé de la charge")
Sheets("Flash").Range("C" & Range("flashchg").Row).Offset(1, 0) = Sheets("paramètre").Range("B" & Range("paramchg").Row).Offset(1, 0)
Sheets("paramètre").Range("R" & Range("paramchg").Row).Offset(1, 0) = Sheets("paramètre").Range("B" & Range("paramchg").Row).Offset(1, 0)
Worksheets("Flash").Activate
Range("flashchg").Select
Selection.Copy
Range("flashchg").Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub