Activecell.offset(0,1).value = "toto"
Activecell.offset(0,-1).value = "titi"
Application.WorksheetFunction.Max(Range("A1:A10"))
Attention, ce sont les noms anglais des fonctions en VBA
ActiveCell.Offset(0, -1).Value = Application.WorksheetFunction.vlookup(Activecell.value,sheets("Coffragevoile").range("$B$3:$E$65536"),4,0)