[COLOR="DarkSlateGray"]Worksheets("Registre des recettes").Select
ActiveCell.Offset(0, 1).Activate
Selection.Value = p
ActiveCell.Offset(0, 1).Activate
Selection.Value = d
ActiveCell.Offset(0, 1).Activate
Selection.Value = k & f & " " & l & g & " " & m & h & " " & n & i & " " & o & j[/COLOR]