IF THEN ELESIF MULTIPLES

if InfoFormeDecoupe.contains(" 1 pose") Then
    ...
elseif InfoFormeDecoupe.contains(" 2 pose") Then
    ...
elseif InfoFormeDecoupe.contains(" 3 pose") Then
    ...
else
    ...
end if

SELECT CASE SELON UN CODE

select case Tache.Code_Section
case "X"      ' Commentaire
...
case "Y","Z"      ' Commentaire
...
Case else
...
end Select

SELECT CASE SELON UN NUMERIQUE

select nbjour
case 1 To 5
    ...
case 6, 7, 8
    ...
case is < 0
    ...
case 0
    ...
case is > 8  
    ...
end Select

BOUCLE WHILE

While condition  
    [ statements ]  
    [ Continue While ]  
    [ statements ]  
    [ Exit While ]  
    [ statements ]  
End While

TRY

Try
catch
end try