[FONT=Times New Roman][SIZE=3]Sub test()[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]AppActivate ("bidule")[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]pause (1)[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]tabule(7)[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]SendKeys "essai", True[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]End Sub[/SIZE][/FONT]
[SIZE=3][FONT=Times New Roman]Function pause(durée)[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]début = Timer[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Do While Timer < début + durée[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]DoEvents[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Loop[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]End Function[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Function tabule(nfois)[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]For n = 1 To nfois[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]SendKeys "{TAB}", True[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]pause (0.2)[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Next[/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3]End Function[/SIZE][/FONT]