Sub validligne()
'
' validligne Macro
'
'
'
Range("A6:K6").Select
Selection.Copy
'test pour déterminer la ligne ou coller les infos dans le tableau
Sheets("Base de données Machine").Select
valeurA2 = Range("A2").Value
If valeurA2 = "" Then
Else
Range("A1").Select
Selection.End(xlDown).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select
End If
'memorise le n° de la ligne ou coller les données
ligne_active_base = ActiveCell.Row
'collage dans la base
Sheets("Base de données Machine").Select
Range("A" & ligne_active_base).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Formulaire carton prod").Select
Range("H6:K6").Select
Application.CutCopyMode = False
Selection.ClearContents