Bonjour romain,
Les syntaxes sont:
If condition then action
ou alors
If condition Then
action
Else
action
End If
ou alors
If condition Then
action
End If
ou alors
If condition Then
action
Elseif condition Then
action
Else
action
End If
Et variantes. Là dans ta syntaxe, il y a un peu de tout !
Ensuite concernant ton test, la inputbox ne renvoie PAS "Annuler"
Si l'utilisateur clique sur Annuler, une chaîne de longueur nulle est renvoyée.
Donc tu dois utiliser la syntaxe:
strdate = Application.InputBox("Inscrivez la date (exemple : 29 03 2016)")
if strdate <> "" then
tes actions
else
exit sub
Endif