dim tempA as string
dim tempB as string
dimi i as integer
dim debutligne as integer
dim finligne as integer
for i = debtuligne to finligne
tempA = worksheet(1).cells(i,1)
tempB = worksheet(1).cells(i,2)
if (mid(tempA,1,1) = mid(tempB,1,1)) and (mid(tempA,2,1) = "-" then
worksheet(1).cells(i,3) = "vrai"
else
worksheet(1).cells(i,3) = "faux"
end if
next i