Bonjour @+Thierry
Je m'excuse de pas avoir répondu plus rapidement mais les déplacements coupent le fil.
Pour moi la solution semble la deuxième mais étant vraiment débutant dans cette partie je n'arrive pas à insérer cela dans la macro ci-dessous réalisée en enregistrement direct.
Sub Validation_article()
'
Range("C13").Select
Selection.Copy
Sheets("Tableau").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C19").Select
Selection.Copy
Sheets("Tableau").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C22").Select
Selection.Copy
Sheets("Tableau").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C24").Select
Selection.Copy
Sheets("Tableau").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C26").Select
Selection.Copy
Sheets("Tableau").Select
Range("G2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C28").Select
Selection.Copy
Sheets("Tableau").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C30").Select
Selection.Copy
Sheets("Tableau").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("G23").Select
Selection.Copy
Sheets("Tableau").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("G26").Select
Selection.Copy
Sheets("Tableau").Select
Range("K2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Dialogue").Select
Range("C22").Select 'effacer valeurs dans "dialogue"
Selection.ClearContents
Range("C24").Select
Selection.ClearContents
Range("C26").Select
Selection.ClearContents
Range("G26").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-3
Range("C15
15").Select
End Sub