Ok merci ça marche, je vais utiliser le code ci dessous :
Sub Insérer()
Dim ligne As Integer
ligne = [F65000].End(xlUp).Row + 1 'Determine la première ligne vide de la colonne F
Range("C3").Select 'copie la date
Selection.Copy
Range("F" & ligne).Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone
Range("C6").Select 'copie la valeur
Selection.Copy
Range("G" & ligne).Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone
End Sub
Bonne soirée,
Vincent
º