Sub VerbeConjugaisons()
Dim monVerbe
Dim S As Worksheet
Dim var
Dim i&
Dim Deb&
Dim Fin&
monVerbe = InputBox("Verbe à conjuguer")
If monVerbe = "" Then Exit Sub
Set S = ActiveWorkbook.Worksheets.Add
With S.QueryTables.Add(Destination:=S.[a1], Connection:= _
"URL;http://www.leconjugueur.com/php5/index.php?v=" & monVerbe)
.Refresh BackgroundQuery:=False
End With
var = S.UsedRange
For i& = 1 To UBound(var, 1)
If var(i&, 1) = "Indicatif" Then Deb& = i& - 1
If Left(var(i&, 1), 8) = "Synonyme" Then Fin& = i&
Next i&
S.Rows(Fin& & ":1000").Delete
S.Rows("1:" & Deb&).Delete
End Sub